Exportar un documento Excel a un DataGrid en VB6

Tengo un problema al momento de exportar la información de una hoja de excel. Dicha hoja tiene 6 y el problema es que la columna códigos(son puros números) y al extraerlo esa columna me aparece vacía! Por favor necesito ayuda. Este es mi código

Private Sub Command1_Click()
Dim con As ADODB.Connection
Dim rst As ADODB.Recordset
Set con = New ADODB.Connection
With con
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source= " & App.Path & "/Schneider1.xls;" & _
"Extended Properties=Excel 8.0;"
.CursorLocation = adUseClient
.Open
End With
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM [Sheet1$] ", con, adOpenDynamic, adLockOptimistic
Set DataGrid2.DataSource = rst
End Sub