Public Sub writeDBentrens(ByVal table As String, ByVal fields As String, _
      ByVal values As String)
        Dim mySqlCommand As SqlCommand = New SqlCommand("INSERT INTO " + table _
        + " (" + fields + ") VALUES(" + values + " )", connect)
        'cmd.Parameters.Add("@CustomerId", SqlDbType.VarChar, 5).Value = 
        ' customerId
 
        Try
            mySqlCommand.ExecuteNonQuery()
            MsgBox("In die Tabelle `Customers` in " + table + " wurde ein neuer" & _
              "Datensatz eingefgt.")
        Catch myException As Exception
            MsgBox("Datensatz konnte nicht eingefgt werden: " + _
              myException.ToString())
        End Try
    End Sub

TUXEMPIR,
Tux an die macht