我先建了一个ConnToDB模块
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic

Module ConnToDB

Public ConnStr As String = "workstation id = user;packet = 4096;user id =;"
Public ConnectStr As String = ConnStr & "data source = 'zc401';persist security info = True;initial catalog =DLB"

Public DataAdapter As SqlDataAdapter
Public DataConnection As SqlConnection
Public DataSet As DataSet
Public Indexs As Integer
Public pepdom As Integer
Public No As String

Public Function GetDataFromDB(ByVal sqlstr As String) As DataSet
Try
DataConnection = New SqlConnection
DataConnection.ConnectionString = ConnectStr
DataAdapter = New SqlDataAdapter(sqlstr, DataConnection)
DataSet = New DataSet
DataSet.Clear()
DataAdapter.Fill(DataSet)
DataConnection.Close()
If Not DataSet Is Nothing Then
Return DataSet
End If
Catch
Return Nothing
End Try
End Function

Public Function UpdataDataBase(ByVal sqlstr As String) As Boolean
Dim sqlconn As New SqlConnection(ConnectStr)
Try
Dim cmdTable As SqlCommand = New SqlCommand(sqlstr, sqlconn)
cmdTable.CommandType = CommandType.Text
sqlconn.Open()
cmdTable.ExecuteNonQuery()
sqlconn.Close()
Catch
Return False
End Try
Return True

End Function
End Module

下面是登录界面代码：
Public Class Form1
Inherits System.Windows.Forms.Form

Public sqlstr As String = ""
Public strID As String = ""
Public pwd As String = ""
Public DS As DataSet

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

strID = Trim(Me.TextBox1.Text)
If strID = "" Then
MsgBox("请输入登录的用户名")
End If
pwd = Trim(Me.TextBox2.Text)
sqlstr = "select * from DLB where (用户名 = '" & strID & "')"
DS = New DataSet()
DS.Clear()
DS = GetDataFromDB(sqlstr)
If DS.Tables(0).Rows.Count > 0 Then
sqlstr = "select * from DLB WHERE (用户名 = '" & strID & "')AND(密码='" & pwd & "')"
Dim myDs As DataSet
myDs = New DataSet()
myDs.Clear()
myDs = GetDataFromDB(sqlstr)
If myDs.Tables(0).Rows.Count > 0 Then
pepdom = myDs.Tables(0).Rows(0)("权限")
Main.Show()
Else : MsgBox("密码不正确,请重新输入!")
Me.TextBox2.Text = ""

End If
Else
MsgBox("查无此人，请确认是否有该用户存在")
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()

End Sub
End Class

运行显示“未将对象的引用设置到对象的实例”错误，程序就无法进行了，请高手帮帮忙，做毕业设计，急啊！！！！

错在哪一步的?

If DS.Tables(0).Rows.Count > 0 Then
sqlstr = "select * from DLB WHERE (用户名 = '" & strID & "')AND(密码='" & pwd & "')"

这步往下执行就出现异常了

我觉得你少定义了Main窗口
DIM main as new Main
main.show()

if ds isnot nothing then
If DS.Tables(0).Rows.Count > 0 Then
sqlstr = "select * from DLB WHERE (用户名 = '" & strID & "')AND(密码='" & pwd & "')"
Dim myDs As DataSet
myDs = New DataSet()
myDs.Clear()
myDs = GetDataFromDB(sqlstr)
if myDs isnot nothing then
If myDs.Tables(0).Rows.Count > 0 Then
pepdom = myDs.Tables(0).Rows(0)("权限")
Main.Show()
Else : MsgBox("密码不正确,请重新输入!")
Me.TextBox2.Text = ""

End If
end if
end if
Else
MsgBox("查无此人，请确认是否有该用户存在")
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
End If

谢谢5楼，遇到的错误解决了。但是它没有读数据库中的数据，无论我输入什么，它都显示“查无此人，请重新输入！”请问这是什么原因?谢谢！！！！

你数据库里是不是没用户啊

我建了用户表了，可就是连不上。还有就是我用的机器不能进行调试，每次显示“试图运行项目时出错：无法启动调试。绑定句柄无效。”这又是因为什么？？？拜托各位高手了

解决方案配置是设置的"Debug"吗？

Terminal Services 这个服务开没?没开不能调试