Private MyDBF As BPDBF
Private Sub Command1_Click()
Dim a As String
MyDBF.EraseColumns
MyDBF.AddColumn "KOD", C_String,  20 
ChDir App.Path
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