Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button10.Click
 
        Dim Row As DataRow = DS2.Tab2.NewRow()
 
            If Me.TextBox1.TextLength = 0 Then
            MessageBox.Show("Bitte Benutzer eingeben!", "Info!", 0, 64, 0)
            Me.TextBox1.Focus()
            Exit Sub
        End If
 
        If Me.TextBox2.TextLength = 0 Then
            MessageBox.Show("Bitte Passwort eingeben!", "Info!", 0, 64, 0)
            Me.TextBox2.Focus()
            Exit Sub
        End If
 
        'Passwort
        String2ToHash2()
 
        Try
            With Row
                .Item("Benutzer") = Me.TextBox1.Text
                .Item("Passwort") = Me.TextBox2.Text
                .Item("Hash") = Me.Label4.Text
            End With
 
 
            DS2.Tab2.Rows.Add(Row)
 
            Me.OleDbDataAdapter1.Update(DS2, "Tab2")
            MessageBox.Show("Datensatz gespeichert", "Info!", _
              MessageBoxButtons.OK, MessageBoxIcon.Information)
 
        Catch ex As Exception
 
        End Try
 
        Me.TextBox1.ReadOnly = True
        Me.TextBox2.ReadOnly = True
 
       Count()
 
    End Sub

VB@rchiv its the Best