[VBA] Excel datenbankanbindung

[mobbY2010]

Hallo,

ich brauch mal die Hilfe eines VBA-Könners.

Ich soll ein Menü in Excel einfügen, bei dem aus Knopfdruck eine Verbindung über ODBC aufgebaut wird und eine Tabelle in das bestehende Dokument, oder neues Dokument eingefügt wird. Das mit dem Menü machen hab ich, es hapert nurnoch an der Abfrage.
So sieht der Teil der Abfrage atm bei mir aus:

Sub LetsImport()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
With cn
    .Provider = "MSDASQL"
    .ConnectionString = "DSN=Test;"
    .Open
End With
Dim strSQL As String
strSQL = "SELECT * INTO [Excel 8.0;Database=" & App.Path & _
    "\book1.xls].[Sheet1] FROM 'Beispieltabelle'"
cnSrc.Execute strSQL
End Sub

Brauche dringend Hilfe... so klappts aus jeden nicht, als ersten Fehler zeigt er mir direkt die 2. Zeile an.

Danke

 

[Arnd]

Unter Extras/Verweise ein Häkchen setzen bei Microsoft Active X Data Objects 2.0 Library.
Dann kommt bei mir die nächste Fehlermeldung :-).

MfG

Arnd

 

[mobbY2010]

Hallo,
danke,für deine Antwort! Das hab ich mitlerweile auch schon geschafft..

Naja, habs zumindestensschon geschafft drauf zuzugreifen..