Private Sub CommandButton1_Click()
 
   'upraveno podle http://www.excelkb.com/article.aspx?id=10041&cNode=7X0G0W
 
   Dim cnt As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim stSQL As String
 
   'definice připojení
   Const stCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "Data Source=C:data.xls;" & _
         "Extended Properties=""Excel 8.0;HDR=YES"";"
 
   'SQL dotaz
   stSQL = "SELECT JMENO, CISLO FROM [List1$]"
 
   'objekty ADO
   Set cnt = New ADODB.Connection
   Set rst = New ADODB.Recordset
 
   'vlastní připojení
   cnt.Open stCon
 
   With rst
      'nastavení recordsetu
      .CursorLocation = adUseClient
      .Open stSQL, cnt, adOpenForwardOnly, adLockReadOnly, adCmdText
      'odpojení recordsetu
      Set .ActiveConnection = Nothing
   End With
 
   'obsahuje výsledek nějaká data?
   If rst.EOF Then
      MsgBox "Data nejsou k dispozici!", vbCritical
      GoTo Konec
   End If
 
   'naplnění prvku DataGrid
   Set Me.DataGrid1.DataSource = rst
 
   'překreslení prvku DataGrid
   Me.DataGrid1.Refresh
 
Konec:
 
   'uzavření a odpojení z paměti
   rst.Close
   cnt.Close
   Set rst = Nothing
   Set cnt = Nothing
 
End Sub