Dim cmd As New SqlCommand("INSERT INTO tbl_leihhardware (Ersteller," & _
                                        "Austauschgeraet, Ersatzgeraet, Grund," _
                                        & _
                                        "Standort, Bemerkung, Datum) VALUES(" & _
                                        "@Ersteller, @Austauschgeraet," & _
                                        "@Ersatzgeraet, @Grund, @Standort," & _
                                        "@Bemerkung, @Datum)", conn)
 
            cmd.Parameters.Add(New SqlParameter("@Ersteller", _
              SqlDbType.VarChar, 50)).Value = txtErsteller.Text
            cmd.Parameters.Add(New SqlParameter("@Austauschgeraet", _
            SqlDbType.VarChar, 50)).Value = txtAustauschgeraet.Text
            cmd.Parameters.Add(New SqlParameter("@Ersatzgeraet", _
            SqlDbType.VarChar, 50)).Value = txtErsatzgeraet.Text
            cmd.Parameters.Add(New SqlParameter("@Grund", SqlDbType.VarChar, _
            50)).Value = txtGrund.Text
            cmd.Parameters.Add(New SqlParameter("@Standort", SqlDbType.VarChar, _
            50)).Value = txtStandort.Text
            cmd.Parameters.Add(New SqlParameter("@Bemerkung", _
            SqlDbType.VarChar, 500)).Value = txtBemerkung.Text
            cmd.Parameters.Add(New SqlParameter("@Datum", _
              SqlDbType.DateTime)).Value = Date.Now

Ralf