Private Sub UpdateID()
        Dim query As String
        Dim conStr As String = "Driver={Microsoft Access Driver (" & _
          "*.mdb)};Dbq=C:\Users\Dennis\Documents\project.mdb;"
 
        If txtnote.Text = "" Then
            MsgBox("Bitte Spaltenname eingeben!!")
            txtspalte.Focus()
        Else
            query = "update Schüler set ID = '" & txtident.Text & ""
            Dim conn As New System.Data.Odbc.OdbcConnection(conStr)
            Dim com As New System.Data.Odbc.OdbcCommand(query, conn)
 
            Try
                conn.Open()
                com.ExecuteNonQuery()
                MsgBox("OK")
            Catch ex As Exception
                MsgBox("Fehler" & vbCrLf & ex.Message)
            Finally
                conn.Close()
            End Try
        End If
    End Sub