"Error '91' en tiempo de ejecucion:Variable de tipo Objeto o la variable de bloque With no esta establecida" y la linea de programacion es : Set RST = DB.OpenRecordset(SQL2)


Tengo instalado las librerias MSDN, DAO,ADO y tengo conectado el ODBC, trabajo con visual basic 6.o y access. Ademas tengo creado un modulo y con las siguientes instrucciones:


Global DB As Database
Global RST As Recordset
Global dbname As String


Sub MAIN()
dbname = "c:\proyectob\bd1.MDB"
Set DB = OpenDatabase(dbname)
End Sub


y en un frm tengo el siguiente procedimiento, que es el que me esta dando el error:


Public Sub BUSCAR()
Dim SQL2, mensaje2 As String
If Text1.Text <> "" Then
SQL2 = "Select * from control where clave='" & Text2.Text & "' AND dni='" & Text1.Text & "'"
Set RST = DB.OpenRecordset(SQL2)
If RST.EOF Then
mensaje2 = MsgBox("Acceso Denegado!", vbDefaultButton2, "Informacion")
If mensaje2 = 1 Then
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
contador = contador + 1
If contador = 3 Then
Unload Me
frmfallido.Show
End If
End If
Else
If IsNull(RST!niv) Then
mensaje2 = MsgBox("Acceso Denegado!", vbDefaultButton2, "Informacion")
Else
nivel = RST!niv
Unload Me
frmMENU.Show
End If
End If
End If
End Sub


Espero puedas conseguir el error. Gracias!!!