Form de autenticação

O q há de errado com meu código? É um form de login. Primeiro, não acontecia nada quando colocava p rodar, agora, da erro na linha do caminho, mas o caminho ta certinho (ja verifiquei).

Alguém sabe o q pode estar errado?

Private Sub Cmdok_Click()If txtusuario = "" Then MsgBox "Verifique o usuário!", vbCritical, vbOKOnly, "Erro ao conectar o banco" txtusuario.SetFocusIf txtsenha = "" Then MsgBox "Verifique a senha!", vbCritical, vbOKOnly, "Erro ao conectar o banco" txtsenha.SetFocusExit SubElse 'Criando as variáveis de conexão Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Set cnn = New ADODB.Connection Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient cnn.Open Provider = "Microsoft.Jet.OLEDB.4.0;Data Source = caminho\acesso.mdb" rs.Open "Select * From LOGIN Where login='" & txtusuario.Text & "' and senha='" & txtsenha.Text & "'", cnn, adOpenStatic If rs.RecordCount > 0 Then 'Caso os dados forem aceitos então fechamos a conexão com o banco rs.Close Set rs = Nothing cnn.Close Set cnn = Nothing Unload Me Principal.Show End If