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