VBA Recordcount

[Jasper XAFAX]

Hi Guru's,

I did a search on this subject but no one has encountered the error I am having. This is the code

------------------------------------------------------------------
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset

Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & "G:\NAWKLANT\FONTYS\FONTYS.MDB" & ";Persist Security Info=False"
conn.Open

rst.CursorLocation = adUseClient
rst.CursorType = adOpenStatic
rst.LockType = adLockBatchOptimistic
rst.Open "SELECT * FROM Studenten"

Number = rst.RecordCount

rst.MoveLast
rst.MoveFirst

txtRecCount.Text = Number
--------------------------------------------------------------------

I get an error at the rst.open part saying that this connection can not be used for this action, or this action is not valid in this context.

Hope someone can tell me what I am doing wrong and excuse my newbieness.

Thanks in advance,

Jasper