Private Sub addToOrders()
        Dim sql As String = "Insert Into Orders (CustomerId, EmployeeID," & _
          "OrderDate, RequiredDate) Values(@ci, @ei, @od, @rd)"
        _sqlConn.ConnectionString = _sqlconnString
        Dim cmd As New SqlCommand(sql, _sqlConn)
        cmd.Parameters.Add("@ci", "VINET")
        cmd.Parameters.Add("@ei", 5)
        cmd.Parameters.Add("@od", Now)
        cmd.Parameters.Add("@rd", Now)
        Try
            _sqlConn.Open()
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        Finally
            _sqlConn.Close()
        End Try
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist