'Save-Record 
    Private Sub SaveRecord()
 
        Dim obj As Object
        Dim str As String   
        Dim dtServer_Info_SR As New DataTable("Server_Info")
        Dim drServer_Info_SR As DataRow
 
        drServer_Info_SR = ???
 
        drServer_Info_SR.BeginEdit()
 
        For Each obj In Me.Controls
 
            If TypeOf obj Is TextBox Then
 
                str = Mid(obj.name, 1???) //Was geb ich hier an??
 
                Try
                    drServer_Info_SR(str) = obj.text
                Catch ex As Exception
                    MessageBox.Show(ex.ToString, "Error", MessageBoxButtons.OK, _
                      MessageBoxIcon.Error)
                End Try
 
            End If
 
        Next
 
        drServer_Info_SR.EndEdit()
 
        Try
 
            Dim cmdServer_Info_SR As OleDb.OleDbCommandBuilder
            cmdServer_Info_SR = New OleDb.OleDbCommandBuilder(OleDbDataAdapter3)
 
            OleDbDataAdapter3.UpdateCommand = cmdServer_Info_SR.GetUpdateCommand
            OleDbDataAdapter3.Update(DsServer_Info1, "Server_Info")
            DsServer_Info1.Tables("Server_Info").AcceptChanges()
            OleDbDataAdapter3.UpdateCommand.Connection.Close()
 
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Error", MessageBoxButtons.OK, _
              MessageBoxIcon.Error)
        End Try