Scrolling recordset using ADO

[Platypus1]

I keep getting an error when trying to scroll backward through a recordset.

My code looks like this:

Option Explicit
Dim Cn As ADODB.Connection
Dim Cmd As ADODB.Command
Dim rs As ADODB.Recordset

Private Sub Command1_Click()
rs.MovePrevious
If rs.BOF = True Then
rs.MoveFirst
End If
Text1.Text = rs.Fields("CompanyName")
End Sub

Private Sub Command2_Click()
rs.MoveNext
If rs.EOF = True Then
rs.MoveLast
End If
Text1.Text = rs.Fields("CompanyName")
End Sub

Private Sub Form_Load()

Set Cn = New ADODB.Connection
Cn.Open "Provider=SQLOLEDB;Persis Security Info=FALSE;" & _
"User ID=XXXXX;Password=XXXX;" & _
"Initial Catalog=HelpDesk;Data Source=MCSQL"

Set Cmd = New ADODB.Command
Set Cmd.ActiveConnection = Cn

Cmd.CommandText = "SELECT CompanyName FROM [Client Company]"
Cmd.CommandType = adCmdText

Set rs = New ADODB.Recordset
With rs
.CursorLocation = adUseServer
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
End With

Set rs = Cmd.Execute

If (rs.BOF And rs.EOF) = False Then
Text1.Text = rs.Fields("CompanyName")
End If
End Sub


Thanks

[sanon]

Try this

CursorLocation = adUseClient