Consultar registros Excel VBA a Mysql

Cordial saludo, estoy desarrollando el siguiente código para
realizar consultas de mi hoja de cálculo de Excel a una base de datos Mysql:
Dim oConn As ADODB.Connection
oConn.Open "DSN=Factura"
On Error Resume Next
If oConn.State = 1 Then
Dim com As New ADODB.Command
com.ActiveConnection = oConn
' com.CommandText = "select * from factura"
com.CommandText = "select * from factura where Titulo_Minero=
'" & Val(Hoja2.Cells(1, 2)) & "'"
com.CommandType = adCmdText
Dim rs As ADODB.Recordset
Set rs = com.Execute
If rs.EOF <> True Then
Dim fila As Integer
fila = 3
Do While Not rs.EOF
Hoja2.Cells(fila, 1) = rs("Numero_Factura")
Hoja2.Cells(fila, 2) = rs("Titulo_Minero")
Hoja2.Cells(fila, 3) = rs("Tipo")
Hoja2.Cells(fila, 4) = rs("Ciclo")
Hoja2.Cells(fila, 5) = rs("Producto")
Hoja2.Cells(fila, 6) = rs("Zona")
Hoja2.Cells(fila, 7) = rs("Etapa_Contractual")
Hoja2.Cells(fila, 8) = rs("Mineral")
Hoja2.Cells(fila, 9) = rs("Departamento")
Hoja2.Cells(fila, 10) = rs("Municipio")
Hoja2.Cells(fila, 11) = rs("Valor_parcial%")
If rs.EOF Then
oCon.Close
End If
Exit Do
Loop
End If
'oCon.Close
Else
MsgBox "Error en la conexión"
End If
pero el compilador me dice que hay un error en la linea de código oConn.Open "DSN=Factura",
aparece el error que dice "Se ha producido el error '91' en tiempo de
ejecución variable de objeto o bloque with no establecido", porque me
muestra este error?

Gracias de antemano por la ayuda