兄弟有一段代码，请高手帮忙看看每一句是什么意思！
1 Dim strSql As String = "select * from UserInfor where User_Flag = 1 and User_Id= " + txt_UserId.Text.Trim() + " "
2 Dim dts As DataSet = New DataSet()
3 connDB(myAccessConn)
4 If myAccessConn.State = ConnectionState.Open Then
5 SelectDate(myAccessConn, dts, strSql)
6 myAccessConn.Close()
7 End If
请教高手帮我解释下这些语句都是什么意思，第一句和最后一句就不用解释了，谢谢！
[解决办法]
2 Dim dts As DataSet = New DataSet() 实例化一个数据集
3 connDB(myAccessConn) 这个是调用一个函数
4 If myAccessConn.State = ConnectionState.Open这个是判断数据库连接状态如果是找开 Then
5 SelectDate(myAccessConn, dts, strSql) 调用SelectDate函数
6 myAccessConn.Close()数据库接关闭
[解决办法]
问题1：第4、5、6句：判断数据库连接是否打开 ，如果已打开，执行所定义的SQL语句，（SELECTDATE是你自己定义的类中的函数），执行结束后，关闭数据库连接。
问题2：首先定义一个数据表：DIM MYTABLE AS NEW DATATABLE
在第4句至第6句中间，改为:
4 If myAccessConn.State = ConnectionState.Open Then
5 MYTABLE=SelectDate(myAccessConn, dts, strSql)
6 myAccessConn.Close()
IF MYTABLE.ROWS.COUNT<>0
FORM1.SHOWDIALOG()
END IF
-------------------------------------
最好是全改为：
Dim strSql As String = "select * from UserInfor where User_Flag = 1 and User_Id= " + txt_UserId.Text.Trim() + " "
DIM MYTABLE AS NEW DATATABLE
If myAccessConn.State = ConnectionState.Open Then
MYTABLE=SelectDate(myAccessConn,strSql)
myAccessConn.Close()
End If
IF MYTABLE.ROWS.COUNT<>0
FORM1.SHOWDIALOG()
END IF
