База данных - VB

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

Здравствуйте. Помогите пожалуйста сделать программку на VB 6.0, в которой можно добавить, удалить, редактировать, поиск по полям БД. И выводит данные БД в MS Flex Grid или Data Grid.

Решение задачи: «База данных»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
    'Предварительно подключите библиотеку Microsoft ActiveX Data Objects 2.5 Library
    
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Set cn = New ADODB.Connection
    
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BIBLIO.MDB;User Id=Admin;Password=;"
    cn.Open
    
    With rs
       .ActiveConnection = cn
       .CursorLocation = adUseClient
       .CursorType = adOpenForwardOnly
       .Source = "SELECT * FROM Publishers WHERE State='NY'"
       .Open
    End With
    
    Set Me.DataGrid1.DataSource = rs
    Set MSHFlexGrid1.DataSource = rs
End Sub