<br>CREATE TABLE TestTab(<br>ID int primary key,<br>fld1 varchar(100),<br>....<br>)<br>

<br>internal class TestTabRecord{<br>public int ID;<br>public string fld1;<br>....<br>}<br>internal class TestTabRecorCollection:CollectionBase {..}//генерится генератором коллекций из .NET Fw SDK, где то на форуме я писал где его искать<br>

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

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

<br>char *s=new char[1000];<br>s=NULL;//это и есть nothing<br>//detected memory leaks! :)<br>