'********************数据库结果绑定到DATAGRID
Public Function BindGrid(ByVal strSQL As String, ByVal strConnString As String, ByVal MyDataGrid As DataGrid) As Integer
Dim myConnection As SqlConnection '定义数据库连接对象
Dim myCommand As SqlDataAdapter '定义数据库命令对象
Dim ds As DataSet = New DataSet '查询结果集
myConnection = New SqlConnection(strConnString) '连接数据库
myCommand = New SqlDataAdapter(strSQL, myConnection) '执行查询命令