Imports System.GC 
Public Class Form2 
    Inherits System.Windows.Forms.Form 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Dim rrr As New Form1() 
 
        rrr.ShowDialog() 
        rrr.Dispose() 
        Collect() 
        WaitForPendingFinalizers() 
        Collect() 
    End Sub 
End Class 

mports System.Data.OleDb, System.GC 
Public Class Form1 
    Inherits System.Windows.Forms.Form 
 
    Public strConn, sSQL, srcFile As String 
    Public Comm As OleDbCommand 
    Public ds As DataSet 
    Public Conn As OleDbConnection 
    Public Ad As OleDbDataAdapter 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
 
        Dim q As Long 
 
        ds = New DataSet() 
 
        DataGrid1.DataSource = ds 'Контрол Grid связываем с объектом DataSet 
 
        sSQL = "SELECT * FROM SSP" 
        srcFile = "form2.mdb" 
        Try 
            'Создаём и открываем соединение 
            Conn = New OleDbConnection() 
            Conn.ConnectionString =  "Provider=Microsoft.Jet.OLEDB.4 . 0 ;Data Source='" & srcFile & "'" 
            Conn.Open() 
 
            Comm = New OleDbCommand(sSQL, Conn) 'Создаём команду выборки данных 
            Comm.Connection = Conn 'Указываем команде нужное соединение 
 
            Ad = New OleDbDataAdapter() 'Создаём адаптер данных 
            Ad.SelectCommand = Comm 'Указываем команду выборки данных 
            Ad.Fill(ds,  "SSP" ) 'Заполняем DataSet.  
            DataGrid1.DataMember = ds.Tables( "SSP" ).TableName 
 
            Conn.Close() 
        Catch ex As Exception 
            MsgBox( "Тип ошибки: "  & ex.GetType.FullName & vbCrLf & ex.Message) 
        End Try 
    End Sub 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
        Close() 
        Conn.Dispose() 
        Comm.Dispose() 
        ds.Clear() 
        Conn = Nothing 
        Comm = Nothing 
        ds = Nothing 
        DataGrid1.Dispose() 
        Collect() 
        WaitForPendingFinalizers() 
        Collect() 
    End Sub 
End Class