Dim rs(0 To 1) As New ADODB.Recordset ' Für jedes Grid ein Recordset
 
Private Sub cmb_dg_Click(Index As Integer)
    If cmb_dg(Index).ListIndex > -1 Then
        sqlsuche = suchen("SELECT * FROM " & cmb_dg(Index).Text, rs(Index))
        dg_init Index
    End If
End Sub
 
Private Sub dg_init(Index As Integer)
    With dg(Index)
        .Clear
        .LockUpdate True
        Set .Recordset = rs(Index)
        .LockUpdate False
        .Refresh
    End With
End Sub

Gru? aus Oberhausen, Salvatore

---

Man braucht nur mit Liebe einer Sache nachzugeben,
so gesellt sich das Gl?ck hinzu. (Johannes Trojan)