Query to obtain database data information

'Data operation execution
Public Sub getConn(ByVal SqlStr As String, ByVal TableName As String)
Try
= SqlStr
()
= objCommand
(objDataSet, TableName)
Catch ex As Exception

MsgBox()
End Try
End Sub