Public Sub writeDBentrens(ByVal table As String, ByVal fields As String, _
      ByVal values As String)
        Dim cmd As SqlCommand = New SqlCommand("INSERT INTO table (fields)" & _
        "VALUES(values)")
        'cmd.Parameters.Add("@CustomerId", SqlDbType.VarChar, 5).Value = 
        ' customerId
 
        Try
            cmd.ExecuteNonQuery()
        Catch e As SqlException
            MsgBox(e.Message)
        End Try
    End Sub

TUXEMPIR,
Tux an die macht