SQL中如何返回当前行
我需要返回查询结果在记录集中所在位置,有一个笨办法,但是效率太低,有什么好的解决办法没

笨办法

dim curnum as integer

rs.open "select * from data_info ",conn,1,3
if rs.recordcount <> 0 then
do while not rs.eof
curnum=curnum+1
if rs( "ID ")= "DT070501137 " then
exit do
end if
loop
end if
rs.close

如果记录多的话,速度就爆慢,有什么更好的办法没

[解决办法]
'Try it!

Sub ADOFindRecord()

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset

' Open the connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=.\NorthWind.mdb; " 'Your Source Database path

' Open the recordset
rst.Open "Customers ", cnn, adOpenKeyset, adLockOptimistic

' Print the absolute position
Debug.Print "rst.AbsolutePosition_1= ";rst.AbsolutePosition

' Find the first customer whose country is USA
rst.Find "ID= 'DT070501137 ' "
Debug.Print "rst.AbsolutePosition_2= ";rst.AbsolutePosition
' Print the customer id 's of all customers in the USA
Do Until rst.EOF
rst.Find "ID= 'DT070501137 ' ",1
Debug.Print "rst.AbsolutePosition_3= ";rst.AbsolutePosition
Loop

' Close the recordset
rst.Close
End sub