VBA error

[cheeryki]

When i try to run this program, a error shown i haven't set object variable or with block variable.
Does anyone know what's problem of the following VB code?




Private Sub Command8_Click()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset


Set cnn = CurrentProject.Connection
rst.Open "salesperson", cnn, adOpenKeyset, adLockOptimistic, adCmdTable



rst.MoveFirst
total = 0

Do While Not rst.EOF
total = total + (rst![basic salary] + rst![sales] * rst![commission rate])
rst.MoveNext

Loop
rst.Close
cnn.Close
MsgBox "total amount=" + Str(total)

End Sub

 

[combo]

It seems that you declare rst object, but do not assign variable to it.

combo

 

[combo]

Ooops, should be:
It seems that you declare rst variable, but do not assign any object to it.

combo

 

[cheeryki]

combo~

so how should i do to assign the object?
i am the new user in VBA, can you please help me to corret the code?

many thanks

 

[venkman]

Don't know anything about VBA with Databases, but my guess would be to change:

Dim rst As ADODB.Recordset

to:

Dim rst As New ADODB.Recordset

-Venkman