Private m_cn As ADODB.Connection
Private m_rs As ADODB.Recordset
 
Private Sub Form_Load()
    Set m_cn = New ADODB.Connection
    Set m_rs = New ADODB.Recordset
    With m_cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Extended Properties").Value = "Excel 8.0"
        Call .Open("C:\Programs\Data\MyDatabase.xls")
    End With
    With m_rs
        .ActiveConnection = m_cn
        .CursorLocation = adUseClient
        .Source = "select * from tblArticles"     ' Tabellenname = Sheetname.
        Call .Open
    End With
    Set grdMyDataGrid.DataSource = m_rs
End Sub

*greetz*
Tim
.
http://www.DotNetWorld.de