Dim companycode As String
Dim companyname As String
Dim rst As New ADODB.Recordset
Set rst = InorOutStoreTabTempAdodc.Recordset
companycode = rst!companycode
computercode = rst!computercode
请问vb6中的这段代码换成sql数据库在vb.net中怎么写？