执行一个sql语句后，如何得到返回值？

Question

我的设计意图是：如果执行后，没有相应的记录就开始下一步骤SQL1 = " SELECT StInf.StNO, StInf.Lon, StInf.Lat, StInf.Lev"
SQL1 = SQL1 & " From StInf WHERE StInf.StNO =  " & s1.STNO1
SQL1 = SQL1 & " ORDER BY StInf.StNO "db.execute sqlif 数据库没有相应的记录 then
………………
end if

Answer 1

If rs.RecordCount = 0 Then
   MsgBox "沒有記錄"
 Else
  msgbox rs.RecordCount
 End If

Answer 2

dim strA,sql1 as string
dim RS as adodb.recordset
strA=""PROVIDER=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="
set rs=new adodb.recordset
SQL1 = " SELECT StInf.StNO, StInf.Lon, StInf.Lat, StInf.Lev"
SQL1 = SQL1 & " From StInf WHERE StInf.StNO =  " & s1.STNO1
SQL1 = SQL1 & " ORDER BY StInf.StNO "
rs.open sql1,stra, adOpenStatic, adLockReadOnlyif rs.RecordCount =0 then  '数据库没有相应的记录
………………
end if

Answer 3

为何程序说不能识别我的数据库格式 （…….mdb）？