谁有VB与SQL数据库相连的一个登入窗口啊，只要代码就可以

VERSION 5.00
Begin VB.Form fpas1
BorderStyle = 1 'Fixed Single
Caption = "密码"
ClientHeight = 1935
ClientLeft = 45
ClientTop = 330
ClientWidth = 3345
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1935
ScaleMode = 0 'User
ScaleWidth = 3345
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdcancel
Caption = "取消"
Height = 375
Left = 1800
TabIndex = 3
Top = 1440
Width = 855
End
Begin VB.CommandButton cmdok
Caption = "确定"
Height = 375
Left