Tælle records og sætte værdien i et felt

Først en forklaring.
Jeg har i en tabel en række oplysninger på bruger, de har hver tilknyttet et AfdNr som flere brugere godt kan have. Ideen er her at jeg et andet sted laver en count på hvor mange brugere der er med AfdNr X...(X bliver defineret i formularen) koden ser således ud..men jeg får en driver fejl...har testet SQL´en i query mode...i dette tilfælde giver den mig tallet 3, som passer fint..

Det er en Click event procedure i VBA (Access 2000)
"[Microsoft][ODBC Driver Manager] Datasourcename not found, and no default driver selected.



Private Sub Bruger_antal_Click()
On Error GoTo Bruger_antal_Click_Err

Dim UsrStr As String
Dim sSql As String
Dim comp As Integer

Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection


UsrStr = Me.AfdNr


sSql = "SELECT COUNT (*) as total_Count FROM TBL_bruger WHERE AfdNr= " & UsrStr & ""
Set rs = New ADODB.Recordset
Set cn = New ADOB.Connection


'Establishing ADOB connection

cn.ConnectionString = "CurrentProject.Connection "
cn.Open

'Open recordset based on sSql

rs.Open sSql, cn, adOpenKeyset, adLockOptimistic, adCmdText

'retrieve value of total_Count which is number of records with usrStr as key value

comp = rs.Fields("total_Count").Value

MsgBox comp


rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing