Форумы HiProg.com - MS ACCESS, VBA, VB

ник: purpleman
в VBA обсолютный чайник ... попробывал чё-то написать вот что вышло
Private Sub Кнопка0_Click(Cancel As Integer)
Dim SQL As String
Dim Docmd As String

Docmd.TransferDatabase acImport = "dBase 4.0", "c:\xxx\", acTable
DoCMS.RunSQL = "INSERT INTO Tbl VALUES ('Имя','Фамилия','Отчество')"
Docmd.DeleteObject acTable = "dBase 4.0", "c:\xxx\", acTable

End Sub