Private MyDBF As BPDBF
Private Sub Command1_Click()
MyDBF.AddColumn "KOD", C_String,  20 
MyDBF.AddColumn "NAME", C_String,  100 
MyDBF.AddColumn "SKLAD", N_Decimal,  6 
 MyDBF.CreateDBF "c:\ostatok.DBF"
End Sub

Private Sub Form_Load()
Set MyDBF = New BPDBF
End Sub

Conn.Open "DRIVER={Microsoft dBase Driver (*.dbf)};DBQ=C:\;DefaultDir = C:\"
Conn.Execute "select * from ostatok.dbf"
Conn.Close

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\;Extended Properties=dBASE IV;User ID=;Password=;"

Private MyDBF As BPDBF
Private Sub Command1_Click()
MyDBF.EraseColumns
MyDBF.AddColumn "KOD", C_String,  20 
MyDBF.CreateDBF "ostatok.DBF"
a = MyDBF.DatabaseName
MyDBF.CloseDBF
MsgBox (a)
Dim conn As New ADODB.Connection
Dim r As ADODB.Recordset
conn.Open "DRIVER={Microsoft dBase Driver (*.dbf)};DBQ=" + App.Path + ";DefaultDir =" + App.Path + ""
Set r = conn.Execute("select * from " + a)
MsgBox r.RecordCount
r.Close
conn.Close
Set r = Nothing
Set conn = Nothing
End Sub
Private Sub Form_Load()
Set MyDBF = New BPDBF
End Sub

Set r = conn.Execute("select * from " + a)