✔ DataGrid aus SQL-Server füllen

[Menduso]

Hallo,

bin relativer Neuling im Bereich VB, will aber aus einem SQL Server Daten aus einer Tabelle in einem VB Formular anzeigen. Hierzu denke ich ist ein DataGrid das sinvollste. Habe zum testen ein Formular mit einem Datagrid und einem Command Button aufgebaut und folgenden Code hinterlegt, jedoch wird beim klich auf den Button das DataGrid überhaupt nicht gefüllt? Kann mir bitte hierbei einer helfen!!

Option Explicit
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset

Private Sub Command1_Click()
 Set Rs = New ADODB.Recordset
  With Rs
    .ActiveConnection = Cn
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Source = "Select ID, Name FROM Person"
    .Open
 End With
  Rs.MoveFirst
  Do
      
  Set Me.DataGrid.DataSource = Rs

    Rs.Close
End Sub

Private Sub Form_Load()
 
 Set Cn = New ADODB.Connection

 With Cn
    .CursorLocation = adUseClient
    .Provider = "SQLOLEDB.1"
    .Properties("Data Source") = "XXXXXXXX"
    .Properties("Initial Catalog") = "XXXXX"
    .Properties("User ID") = "XXXXX"
    .Properties("Password") = "XXXXX"
    .Open
 End With

End Sub

EDIT: Habe mein Fehler selbst gefunden. Mit dem rs.close schließe ich den Recordset und somit wird auch in der Tabelle nichts mehr angezeigt!