De Acces a Excel

[erDanielillo]

Private Sub Comando3_Click()
Dim DataGrid

Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
con.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source= C:\prueba.xls"
con.CursorLocation = adUseClient
rst.Open "Select * From [Hoja1$] Where Nombre = '" & Text1 & "' AND Apellidos = '" & Text3 & "'", con
If rst.RecordCount = 0 Then
MsgBox "No existe."
Exit Sub
End If
Set DataGrid.DataSource = rst
End Sub

Esto es todo lo q tengo en el commando3.
El archivo prueba.xls esta en la unidad c:\ sin carpetas ni nada