Datagrid per code ändern

[Roy aus Hoy]

Hallo VB-Freunde,

ich habe mit dem Datagrid ein paar Probleme. Der angefügte Code funktioniert prima solange ich am Datagrid in der Entwicklungsumgebung nichts ändere. Wenn ich zum Beispiel die Spaltenbreite ändere, wird zwar das Datagrid richtig angezeigt aber es sind keine Daten zu sehen. Was mache falsch oder wie kann ich per Code die Spaltenbreite des Datagrids festlegen ?

Private Sub GridFuellen()
Dim sSql$
'sql-String aufbauen
sSql = "SELECT SUM(dbo.GBuchungen.Anzahl_zu) AS Anzahl, dbo.Geraete.GBez1 AS Artikelbezeichnung, dbo.GBuchungen.Preis, SUM(dbo.GBuchungen.Preis) AS Summe FROM dbo.GBuchungen INNER JOIN dbo.Geraete ON dbo.GBuchungen.GNr = dbo.Geraete.GNr WHERE(dbo.GBuchungen.Aktenzeichen = " & "'" & Me.TxtAz & "') AND (dbo.GBuchungen.LsNr = " & "'" & Me.TxtLieferschein & "')GROUP BY dbo.Geraete.GBez1, dbo.GBuchungen.Preis"

With RsA
'Recordset bei Wiederholung schliessen
If .State = adStateOpen Then
'Recordset abhängen
Set DataGridGebucht.DataSource = Nothing
'schliessen
.Close
End If
.ActiveConnection = CurrentProject.Connection
.CursorType = adOpenKeyset
.LockType = adLockPessimistic
.Open sSql

If .RecordCount = 0 Then
MsgBox "Keine Buchungen vorhanden"
Exit Sub
End If
.MoveFirst
End With
'Recordset an Datagrid binden

With DataGridGebucht
Set .DataSource = RsA
.Requery

RsA.MoveFirst


End With
End Sub
Private Function Getfld(Field As Variant) As String
'Check db-Field auf Nullstring

If IsNull(Field) Then
Getfld = ""
Else
Getfld = Field
End If
End Function

 

[NRFi]

wird dann nicht ein requiery hinter reichen? oder sind die datenmängen zu groß, so dass es zu lange dauert?