Form de autenticação

[JAP 0]

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

VOCÊ NÃO FECHO OS IFs.

[Luizgrs 0]

[Entrando de SAPO no tópico mas tá valendo xD]

 

Quanto aos forms aparecerem na frente um do outro, dá pra fazer duas coisas:

1ª: Você pode fechá-los caso eles não sejam necessários:

unload form

2ª: Caso o usuário só fique na tela que será aberta você pode abri-la de de "maneira modal", assim o form abrira na frente de todos e o usuário não poderá acessar o forumlário que chamou esse novo:

form.show 1