这个很简单呀

"SELECT COUNT(*) FROM vUsers WHERE txtName.Text = [Name] AND txtPwd.Text = [Pwd]"

Count(*) 函数作用：是统计满足条件记录的数量，如果大小1，说明有满足条件的，用户登录成功
Users　数据库中用户表或是视图（一般是视图）
txtName.Text 表示用户输入的用户名
txtPwd.Text 表示用户输入的用户口令
[Name] 表示vUsers表或视图中记录（用户名记录）
[Pwd] 　表示vUsers表或视图中记录（用户名口令记录）

如果返回的值大小0，那么说明您输入的用户和密码是正确的，反之就是非法用户登录。

一般不建议采用这个方法，这个方法VB6.0用的多，这样做登录窗口就会一直在内存中，直到整个程序结束，它才结束
，但在VB。ENT我建议用下列方法
'检查是否启用登录口令

程序，你设置从一个模块中启动，下面是模块中的代码

Dim frmPwd As New frmPwd　
frmPwd.ShowDialog()

　　　　　　　　'frmPwd 是登录窗口
　　　　　　　　'用户输入的用户与口令是否正确，将在登录窗口中验证
　　　　　　　　’如果用户验证正确，就关闭登录窗口，并可以继续执行下面代码，否则就提示输入错误，窗口不会被关闭

'////////////////////////////////////////////////////////////
　　　　　　‘如果用户验证正确，才会到这里运行

Dim ps As New frmMain 　　　　'frmMain是程序的主窗口
ps.Text = "wjt276工作室……"　　‘设置主窗口的标题
Application.Run(ps)　　　　　　　’运行主窗口


下面是登录窗口的验证代码
‘－－－－－－－－－－－－－－－－－－－－－
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
Try
Dim strole As String = "Select Count(*) From Pwd where Name = 'SystemPwd' And Pwd = '" & txtPwd.Text & "'"
If gcon.State = ConnectionState.Closed Then gcon.Open()
Dim mycom As New OleDbCommand(strole, gcon)
Dim intCount As Integer = CType(mycom.ExecuteScalar, Integer)
gcon.Close()
If intCount > 0 Then
Me.Close()
Else
MessageBox.Show("口令错误，请重新输入口令！", "口令错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtPwd.Focus()
txtPwd.SelectAll()
Exit Sub
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
gcon.Close()
End Try
End Sub


‘－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
这样程序在退出时，建议采用下列语句
END
或是
Application.Exit