Problema de programación VB6. Error al acceder a la base de datos. Urgente~~!!!!

Primero debe hacer referencia al objeto de conexión de datos en la referencia del proyecto, como se muestra en la figura:

Luego escriba el siguiente código en la interfaz del código del programa:

'Objeto de conexión de datos de definición

Public?conn?As?New?ADODB.Connection?'Una conexión establecida con la base de datos en modo ADO

Public?RS?As?New ?ADODB.Recordset? 'Conjunto de resultados

'Conectar a la base de datos conn.Open?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="?amp;?App.Path?amp; ?"\Database Directory\Database Name.mdb; Jet?OLEDB: Database?Password="

'Conectar tabla de datos

strSQL?=?"SELECT?*?FROM?Login table?where?Username= '"?amp;?Text1.Text?amp;?"'"

RS.Open?strSQL,?conn,?2,?2