Hola quisiera preguntar por que me sale error en Call Conectar

estoy haciendo un programa en visual basic con contraseña y una base de datos de access y me marca error en call Conectar my maestro digo que es por que tengo que ponerlo en el modulo pero no se como me podrían decir como lo pongo y que variables tengo que poner en el modulo aquí esta el código que tengo en el formulario de usuario y contraseña:

el código general tampoco lo tengo m pude ayudar gracias

Private Sub Cmdaceptar_Click()
Empleado.MoveFirst
Empleado.Find "Nombre='" & LCase(Txtnom) & "'"
If Not rsempleado.EOF Then
If Empleado.Fields(5) = LCase(txtpassword) Then
Unload Me
MDIForm1.Show
Else
MsgBox "Contraseña Incorrecta", vbExclamation, "Aviso"
txtpassword = ""
txtpassword.SetFocus
End If
Else
MsgBox "Usuario no Autorizado", vbExclamation, "Aviso"
Txtnom = ""
txtpassword = ""
Txtnom.SetFocus
End If
End Sub
Private Sub Form_Load()
Dim sql As String
Call Conectar
sql = "select*from Empleado"
Empleado.Open sql, Cnn, adOpenDynamic, adLockOptimistic
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Con.Close
End Sub