复制代码 代码如下:

'数据操作执行

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