Dim con As New SqlClient.SqlConnection
    Dim cmd As New SqlClient.SqlCommand
Dim test As String
'Textfeld mit aktuellem Datum füllen
txterstellt.Text = CStr(Today)
 
test = CDate(txterstellt.Text)
 
Try
            cmd.Connection = con
            con.Open()
            cmd.CommandText = ("insert into tbl_ArbeitenTechnik (Anlage," & _
              "Abteilung, Zuständig, Erstellt, Status, Beschreibung, Aktion)" & _
              "values ('" & CmbAnlage.Text & "','" & CmbAbteilung.Text & "','" _
              & CmbZuständig.Text & "', '" & test & "', '" & CmbStatus.Text & _
              "','" & txtProblem.Text & "','" & txtAktion.Text & "')")
            cmd.ExecuteNonQuery()
 
 
            con.Close()