Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        With st
            .ser_name = TextBox1.Text
            .dat_name = TextBox2.Text
            .use_name = TextBox3.Text
            .pwd_id = TextBox4.Text
        End With
        constring = "Data Source=" + Trim(TextBox1.Text)
        constring &= ";Initial Catalog=" + Trim(TextBox2.Text)
        constring &= ";Persist Security Info=True;User ID=" + Trim(TextBox3.Text)
        constring &= ";Password=" + Trim(TextBox4.Text)
        ' MsgBox(constring)

        Dim objConnection As New SqlConnection(constring)
        Dim objDataAdapter As SqlDataAdapter = New SqlDataAdapter()
        Dim objDataSet As DataSet = New DataSet()
        Try
            objDataAdapter.SelectCommand = New SqlCommand
            objDataAdapter.SelectCommand.Connection = objConnection
            objDataAdapter. = "select 姓名,密码,权限 from idpass"
            objDataAdapter. = CommandType.Text
            objConnection.Open()
            objDataAdapter.Fill(objDataSet, "idpass")
        Catch ex As Exception
            MsgBox("本软件与数据库服务器无法正常连接" + vbCrLf + "请检查与服务器的连接是否正常" + vbCrLf + vbCrLf + "请检查您输入的参数是否正确？" + vbCrLf + "请修改正确后再试...... ", 64, "连接错误提示")
            bConnect = False
        Finally
            bConnect = True
        End Try

        objConnection.Close()
        objDataAdapter = Nothing
        objConnection = Nothing

        If bConnect = True Then
            ss = FreeFile()
            FileOpen(ss, wjm, OpenMode.Random, , , Len(st))
            FilePut(ss, st, 1)
            FileClose(ss)
            MsgBox("参数正确，已经保存成功！", 64, "提示")
        End If

    End Sub

做了个参数输入表单，如下图，本想保存之前测试一下输入的参数对不对，可是条件语句不起作用，不管对不对都会保存？

Finally这个代码块在Try...Catch...End Try的结构中可以没有，不是必须要有的，也可以只有一个。这个Finally块无论有没有发生异常，它都会被最后运行。即使你在Try结构块内用Return返回，在返回之前，Finally块代码总会被执行。也就是说，bConnect = True 这行代码执行后才会End Try。所以，出现了楼主所说的情况。
针对这个问题，把Finally代码块注释掉即可。
If bConnect = True Then 这个条件块代码可以直接写到Finally中（不过，放在Try之外，能增加程序的可读性。
不知道楼主明白不？

谢谢 不说也罢 版主，原来是我理解错Finally 的作用了

另外下午我查帮助文档发现objConnection.State 可以返回与服务器的连接状态值，因此改用了如下代码
 stcon = objConnection.State
            If stcon = "1" Then
                '  MsgBox("连接成功" + stcon)
            Else
                MsgBox("连接失败" + stcon)
            End If

另外，在程序代码中如果 objDataAdapter. = "select 姓名,密码,权限 from idpass"  这条查询语句写错，后面的objDataAdapter.Fill(objDataSet, "idpass")
语句也会跟着出错，请问objDataAdapter.fill 有返回执行结果的状态参数吗？我找不到

也就是说如何判断一个SQL语句是否有正确执行？

错误处理啊。
 Catch ex As Exception
            MsgBox(ex.Message)