如果是我的话，我会这样用：
Dim strcon As String = "***********************************************"'数据库连接字串
        '  Dim strcmd As String
        Dim sqlcn As SqlClient.SqlConnection = New SqlClient.SqlConnection(strcon)
        sqlcn.Open()
        Dim dsTemp01 As DataSet
        Dim daTemp01 As SqlClient.SqlDataAdapter
        Dim rw01 As DataRow
        Dim daTempComm01 As SqlClient.SqlCommandBuilder
        Dim z As Integer
        dsTemp01 = New DataSet
        daTemp01 = New SqlClient.SqlDataAdapter("select * from [testData] where [test1]='" & CStr(Trim(TextBox1.Text)) & "';", sqlcn)
        daTemp01.Fill(dsTemp01, "datalist") 'dsTemp01数据集中数据表名
        z = dsTemp01.Tables(0).Rows.Count
        If z > 0 Then
            MsgBox("該用戶名已存在!")
        Else
           '当然这里可以用插入语句，不一定要用添加新行的方法
            rw01 = dsTemp01.Tables("datalist").NewRow
            rw01("test1") = CStr(Trim(TextBox1.Text))
            dsTemp01.Tables("datalist").Rows.Add(rw01)
            daTempComm01 = New SqlClient.SqlCommandBuilder(daTemp01)
            daTemp01.Update(dsTemp01, "datalist")
            MsgBox("申請成功，請登入!")
        End If

Try
Catch ex As Exception
End Try
這是什么語法

获取错误
当
Try
Catch ex As Exception块中代码有问题时，获取到该错误，然后执行
Catch ex As Exception
End Try块之间的代码

也就是說當錯誤時就運行，而end try 是結束try過程的

版主？！中级会员？！恩！！

错，只能说当你的try 与 Catch ex As Exception 之间的代码执行出错时，系统获取到该错误，跳出这段代码，转而执行  Catch ex As Exception  与 end  try之间的语句。
如果没有try语句的话，系统是直接抛出错误的

Try
            If mydataset.Tables("t_login").Rows(0).Item(1) = Trim(TextBox2.Text) Then
                userinf(0) = Trim(TextBox1.Text)
                userinf(1) = Trim(TextBox2.Text)
            Else
                MsgBox("密码错误")
                TextBox2.Text = ""
                Exit Sub
            End If

        Catch ex As Exception
            MsgBox("用户不存在")
            TextBox1.Text = ""
            TextBox2.Text = ""
            Label3.Text = ""
        End Try
那麼祂這里什么意思啊，祂里面代碼完全沒問題啊

是吗？
如果你的系统里面没有这个用户
即mydataset.Tables的记录行数为0，则你这样用 mydataset.Tables("t_login").Rows(0).Item(1) 就会报错，
那么，就会执行MsgBox("用户不存在")
            TextBox1.Text = ""
            TextBox2.Text = ""
            Label3.Text = ""
的语句了

哦哈哈

謝謝啦，我已經理解了
請問這個是什么意思這個在書上無解釋
try
if a<>a then a=b
Catch ex As Exception
if a=a then a=a
Finally
SqlConnection1.Close()
end try