Code:
Private Sub LogUser(UsrName As String)
SQL = "SELECT UserName FROM LoggedUsers WHERE UserName = " & "'" & UsrName & "'"
CheckUserRecord.Close
CheckUserRecord.Open SQL, MeterInfo
With CheckUserRecord
    If .EOF Then
        .AddNew
        !UserName = UsrName
        .Update
    End If
    .Close
End With
End Sub
gives me error
"object or provider is not capable of performing the operation"

damn ADO... dao was easier