I found the solution by myself:

Sub test5()
Dim qt As QueryTable
Dim sqlstring As String
Dim connstring As String
sqlstring = "Select * From *"
connstring = _
"ODBC;DSN=name_of_the_driver(individual);DATABASE= name_of_the_database;SERVER=ip_or_url;UID=user;PAS SWORD=password"
With ActiveSheet.QueryTables.Add(Connection:=connstring , _
Destination:=Range("B1"), Sql:=sqlstring)
.Refresh
End With

End Sub


masterphilch wrote:
Hi

I established a connection to a database via "importing external data"
included in the excel-menu. Unfortunately, there's no such tool to write
data into a database. I just changed the sql-string an exept from an
error, the data is written into it. But I'v read that I can connect to a
database through proper vba-code. Can someone tell me if I have to link
other objects, which objects I have to declare a how I have to handle
them exactly.

thx a lot, if someone could give me a quite detailed response.

greez
masterphilch