Как програмно (то есть кодом) создать объект например - adods?

посмотри тут

Как ти видиш проблема ета у меня уше пару месязев имеетса, но так как пока не оченж надо било, я ничего не cделал.
Короче тебе повезло - я как раз вчера с аетои фишкои разбиралса и за 6 часов у меня появилса неболжшои резултат. У меня код сеичас не с собои (позше пошлу).
а вообше смотри "исползование class module"

Короче делается так:
Ты должен создать в своем проекте модуль класса под названием CCustData со свойствами DataBindingsBehaviour - 0 и DataSourceBehaviour - 1, содержание которого след.

Код

Option Explicit ' References ADO 2.0 Private cn As Connection Private mrsCustomer As ADODB.Recordset Private Sub Class_Initialize()        Set cn = New ADODB.Connection    cn.Provider = "Microsoft.Jet.OLEDB.3.51"    cn.Open "C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb"    Set mrsCustomer = New ADODB.Recordset    mrsCustomer.CursorType = adOpenKeyset    mrsCustomer.LockType = adLockOptimistic    mrsCustomer.ActiveConnection = cn    mrsCustomer.Open "Customers"    'mrsCustomer.MoveLast    DataMembers.Add "Name" End Sub Private Sub Class_GetDataMember(DataMember As String, Data As Object)    Select Case DataMember        Case ""            Set Data = Nothing        Case "Name"            Set Data = mrsCustomer        Case Else            ' Raise an error here    End Select End Sub Public Sub MoveFirst()    mrsCustomer.MoveFirst End Sub Public Sub MoveLast()    mrsCustomer.MoveLast End Sub Public Sub MoveNext()    mrsCustomer.MoveNext    If mrsCustomer.EOF Then        mrsCustomer.MoveLast    End If End Sub Public Sub MovePrevious()    mrsCustomer.MovePrevious    If mrsCustomer.BOF Then        mrsCustomer.MoveFirst    End If End Sub Private Sub Class_Terminate()    mrsCustomer.Close    Set mrsCustomer = Nothing End Sub

Потом помести в модуль формы след. код:

Код

Option Explicit Private mCustData As CCustData Private Sub Form_Load() 'On Error Resume Next    ' Create the data source object    '    Set mCustData = New CCustData        ' Bind the object to grid    Set DataGrid1.DataSource = mCustData    'DataGrid1.Refresh    DataGrid1.DataMember = "Name" '    If Err Then '    Err.Clear '   End If End Sub Private Sub cmdFirst_Click()    mCustData.MoveFirst End Sub Private Sub cmdLast_Click()    mCustData.MoveLast End Sub Private Sub cmdNext_Click()    mCustData.MoveNext End Sub Private Sub cmdPrevious_Click()    mCustData.MovePrevious End Sub Private Sub Form_Unload(Cancel As Integer)    Set mCustData = Nothing End Sub

На форме у тебя должны сидеть:
один DataGrid с названием DataGrid1;
четыре CommanButton`а с названиями cmdFirst, cmdLast, cmdNext, cmdPrevious.

Вся фигня как ты видишь под ADO работает, если ты перестроишь под DAO (причем я так и не понял пока можно это сделать или нет), то я буду тебе очень благодарен. Мне самому надо DAO просто, но так как в книгах больше всего про ADO написано, то я сначала сделал его.
Вообще в VB 5 такого сделать вообще нельзя (по крайней мере это говорят книги).

Вот так вот.