如何用vb做登录界面

Dim Rs0 As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Sql = "select * from 密码表 where 用户名='" & Trim(Text1.Text) & "' and 密码='" & Trim(Text2.Text) & "'"
If Rs0.State = 1 Then Rs0.Close
Rs0.CursorLocation = adUseClient
Rs0.Open Sql, Conn
If Not Rs0.EOF And Not Rs0.BOF Then
Label1.Caption = "登 录 成 功"
Else
Label1.Caption = "用户名或密码错误"
Exit Sub
End If

VB里有这样一个功能
在新建窗体的时候可以选择什么类型的
你可以选择登录
之后会自动新建一个登录的窗体
你可以试试

先在窗体上画2个文本框 2个标签 标签名字一个改用户名 一个是密码
再画一个命令按扭 改名字"确认" 输入密码的那个文本的passwordchar属性设定为"*" 这样密码就是以这个显示 不显示为数字了
写入下面程序 根据自己需要改`

Private Sub Command1_Click()
If Text2.Text = "123456789" Then '这个是预设密码 自己改
MsgBox "登陆成功"
Else
MsgBox "密码错误请重新登陆"
End If
End Sub

Private Sub Text1_click()
Text1.Text = &quo