Sou iniciante.. com login e senha

[Schossler 0]

Estou usando esse codigo.. porem dah erro na primeira linha jah..de acordo com meu professor era isso q eu tinha q fazer.. mas.. naum funcionou.. quem puder ajudar eu agradeço.. :)Private Sub Entrar_Click()Dim db As DatabaseDim rst As RecordserSet db = OpenDataBase("C:\Banco de dados\Teste1.mdb")Set rst = db.OpenRecordset("Tabela1", dbOpenTable)rst.Index = "primarykey"If Text1(0).Text = rst!Login And Text2.Text = rst!Senha Thenform2.ShowElseMsgBox "Login e Senha inválidos, tente novamente!", vbCritical, "ERRO"limpatextorst.Closedb.CloseEnd Sub

[preda 0]

Qual é o erro ?

[Schossler 0]

O erro eh o seguinte:Compile errorUser defined type not definede dai fica sublinhado em amarela a linha do entrar_click.. a primeira linha do codigo q passe anteriormente..