Переключение между DataGrid в VB6?

Формулировка задачи:

Есть много справочников, содержащих два поля (счетчик и наименование). Для изменения в них данных используется простая форма с DataGrid и кнопками, управляющими добавлением записи и редактированием. Ввиду идентичности источников данных, есть мысль подключать их к DataMember DataGrid поочередно, все остальные действия унифицированы. Но на практике это не получается, в DataGrid отображаются только те данные, источник которых был выбран в конструкторе, а в остальных случаях набор записей пустой. Пробовал подключать вот так:
If txtSw = "1" Then
DataGrid1.DataMember = ""
DataGrid1.DataMember = "stbCodCat"
ElseIf txtSw = "2" Then
DataGrid1.DataMember = ""
DataGrid1.DataMember = "stbFamCat"
End If
DataGrid1.Refresh
Как подключить к DataGrid данные программно, что бы ни делать много одинаковых форм? Или как решить эту задачу другим путем?
Заранее благодарен

Решение задачи: «Переключение между DataGrid в VB6?»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> cn <font color="blue">As</font> <font color="blue">New</font> ADODB.Connection
<font color="blue">Dim</font> rs <font color="blue">As</font> <font color="blue">New</font> ADODB.Recordset

cn.<font color="blue">Open</font> ...
rs.<font color="blue">Open</font> <font color="teal">"select * ..."</font>, cn, adOpenStatic, adLockBatchOptimistic
<font color="blue">Set</font> DataGrid1.DataSource = rs
                        