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