‘数据操作执行
Public Sub getConn(ByVal SqlStr As String, ByVal TableName As String)
Try
objCommand.CommandText = SqlStr
objDataSet.Clear()
objDataAdapter.SelectCommand = objCommand
objDataAdapter.Fill(objDataSet, TableName)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
VB.net 查询获取数据库数据信息
原文：http://www.jb51.net/article/19123.htm
