Dim AusgewName as String
AusgewName = Tex_Name.Text
 
               Dim Kennwortueberpruefung As String                  
        Dim dr As DataRow
 
        For Each dr In DataSet_MitarbeiterKennwort.Tables(0).Rows   
            If dr("Name") = Stammdaten.AusgewName Then
                Kennwortueberpruefung = dr("Kennwort")
 
If Kennwortueberpruefung = Tex_altesKennwort.Text Then
 
  Dim Pos As Double
            Pos = Me.BindingContext(DataSet_MitarbeiterKennwort.Tables( _
              "t_Mitarbeiter")).Position
            With DataSet_MitarbeiterKennwort.Tables("t_Mitarbeiter").Rows( _
            Pos)
 
                .Item("Kennwort") = Tex_neuesKennwort.Text
 
            End With
 
            Adapter_Kennwort.Update(DataSet_MitarbeiterKennwort, _
              "t_Mitarbeiter")
 
End if