Y lo probé de la forma que me indicas, de hecho había hecho algo similar antes pero se interrumpe la ejecución el la linea que esta en rojo.
Este código esta en el form Acceso para validar password y contraseña del usuario
Código:
Private Sub Form_Load()
Dim sql As String
Call Conectar
sql = "select*from TblUsuario"
rsTblUsuario.Open sql, Cn, adOpenDynamic, adLockOptimistic
End Sub