Dim SDC As SqlConnection
        Dim DDC As SqlConnection
        Dim SQL As String
 
        'die Connections zu den DBs öffnen
        SDC = New SqlConnection("Server=source ...)
        SDC.Open()
 
        DDC = New SqlConnection("Server=destination ...)
        DDC.Open()
 
        SQL = "SELECT * FROM Artikel"
        'die Dataapapter gleich auf die unterschiedlichen DBs öffen
        Dim SDA As New SqlDataAdapter(New SqlCommand(SQL, SDC))
        Dim DDA As New SqlDataAdapter(New SqlCommand(SQL, DDC))
 
        Dim SDS As New DataSet
        SDA.Fill(SDS, "Artikel")
        DDA.Update(SDS, "Artikel")
 
        SDC.Close()
        DDC.Close()

Joachim