Option Explicit

Private Sub Form_Load()
 
With Cn
    ' Provider zuweisen
    .Provider = "MSDASQL.1"
    ' ConnectionString übergeben
    .ConnectionString = "dsn=IT_ODBC;uid=sa;pwd=;database=Reklamation;"
    ' Connection öffnen
    .Open
End With
 
 
With Rs
If .State = adStateClosed Then
.ActiveConnection = Cn
.CursorLocation = adUseClient
.LockType = adLockBatchOptimistic
.Source = "SELECT * FROM Erfassung"
.Open
' Connection entfernen
Set .ActiveConnection = Nothing
'Else
'Cn.Close
End If
End With
 
 
Set Me.DataGrid1.DataSource = Rs
 
' Connection zum Server schließen
Cn.Close
sizecontrols
 
End Sub

Sub sizecontrols()
 
    DataGrid1.Width = 15136
    DataGrid1.Height = 10000
    DataGrid1.Top = Me.Toolbar1.Height + 200
 
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
 
Dim antwort As Variant
 
antwort = MsgBox("Wollen Sie die Änderungen speichern ?", vbYesNo, "Änderung")
 
If antwort = vbYes Then
    Cn.Open
    ' Recordset wird wieder verbunden
    Set Rs.ActiveConnection = Cn
    ' Die Änderungen werden auf einmal an die DB übergeben
    Rs.UpdateBatch
Else
    Cn.Open
    ' Recordset wird wieder verbunden
    Set Rs.ActiveConnection = Cn
    ' Die Änderungen werden NICHT übergeben
    Rs.CancelBatch
End If
 
Cn.Close
End Sub