Dim cnsql As New SqlClient.SqlConnection( _
      "Server=DeinSQLServer\DeineDatenbank;Database=DeinDatenbankname;User" & _
      "ID=sa;Password=irgendwas;Trusted_Connection=False")
 
 
Dim dr As DataRow
For Each dr In ds.Tables("DeineDataTalbe").Rows
 
            Try
                cnsql.Open()
            Catch ex As Exception
 
            End Try
 
            With cnsql.CreateCommand()
                .CommandText = "INSERT INTO DeinTabellenNameDerSQLDatenbank (" & _
                  "DeinFeld1, DeinFeld2, DeinFeld3, DeinFeldN) VALUES ('" & _
                  dr.Item(0).ToString & "', '" & dr.Item(1).ToString & "', '" & _
                  dr.Item(2).ToString & "','" & dr.Item(3) & "')"
                .ExecuteNonQuery()
                .Dispose()
            End With
 
            Try
                cnsql.Close()
            Catch ex As Exception
 
            End Try
 
        Next

EALA FREYA FRESENA