Не работает "Insert into" из VBA

Формулировка задачи:

Друзья, почему появляется сообщении об ошибке "Application-defined or object-defined error"

                    Листинг программы
                
Sub Addrecords()
Dim conn As New ADODB.Connection
conn.Execute ("Insert into c:\qqqq.dbf (Pole1, Pole2) values('asdasdas', 'sddfdsfdsd')")
End Sub

Библиотека ActiveX Data Objects 6.1 Library подключена Файл c:\qqqq.dbf с соответствующими полями присутствует

Решение задачи: «Не работает "Insert into" из VBA»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Addrecords()
Set CONN = Nothing
Set CONN = New ADODB.Connection
CONN = "Driver={Microsoft dBase Driver (*.dbf)};Dbq=C:\;Uid=Admin;Pwd=;"
CONN.Open
CONN.Execute ("Insert into qqqq.dbf (Pole1, Pole2) values('asdasdas', 'sddfdsfdsd')")
End Sub