HELP !!
In the following code after i get the recordset i can use 'moveNext' but when i use 'moveBack' i get an error that the recordset does not support backward fetching.
Any Ideas !!?!!?!?
TRYP
Private Sub Command1_Click()
On Error GoTo Err_Handler
Dim cmdSP As New ADODB.Command
Dim DataConn As New ADODB.Connection
ConnectionString = "driver={SQL server};server=SMaster-PDC;database=space2000;"
DataConn.Open ConnectionString
With cmdSP
Set .ActiveConnection = DataConn
.CommandType = adCmdStoredProc
.CommandText = "retusers"
Set rs = .Execute ' New ADODB.Recordset
End With
Set cmdSP = Nothing
Set DataConn = Nothing
Exit Sub
Err_Handler:
' Set RunSPNoParams = Nothing
Set cmdSP = Nothing
Debug.Print Err.Description
Set DataConn = Nothing
End Sub
In the following code after i get the recordset i can use 'moveNext' but when i use 'moveBack' i get an error that the recordset does not support backward fetching.
Any Ideas !!?!!?!?
TRYP
Private Sub Command1_Click()
On Error GoTo Err_Handler
Dim cmdSP As New ADODB.Command
Dim DataConn As New ADODB.Connection
ConnectionString = "driver={SQL server};server=SMaster-PDC;database=space2000;"
DataConn.Open ConnectionString
With cmdSP
Set .ActiveConnection = DataConn
.CommandType = adCmdStoredProc
.CommandText = "retusers"
Set rs = .Execute ' New ADODB.Recordset
End With
Set cmdSP = Nothing
Set DataConn = Nothing
Exit Sub
Err_Handler:
' Set RunSPNoParams = Nothing
Set cmdSP = Nothing
Debug.Print Err.Description
Set DataConn = Nothing
End Sub