Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Dim Jetzt As Date
        Dim Datum As Date
        Datum = Date.Today
        Jetzt = Date.Now
...
  cmd.CommandText = "INSERT INTO Journal (Buchtyp, Datum,  Uhrzeit, Bearbeiter," & _
    "Personalnummer, Bemerkung) " & _
                       "VALUES ('ÄND', '" & Datum & "', '" & Jetzt & "', '" & _
                       User & "', '" & vPersNr.Text & "', 'Mitarbeiterdaten" & _
                       "geändert')"
 
 Try
            con.Open()
            DOIT = cmd.ExecuteNonQuery
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

Datum = Date.Today.ToString("yyyy-MM-dd")
Datum = Date.Today.ToString("dd.MM.yyyy")