VB.net 查询获取数据库数据信息

　　'数据操作执行

　　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