兄弟有一段代码，请高手帮忙看看每一句是什么意思！该怎么解决

兄弟有一段代码，请高手帮忙看看每一句是什么意思！
                        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