Insert - erro

Não consigo fazer isso, fazr a instrução de inclusão

está ocorrendo o erro abaixo

Compile error:

Method or data member not found

Private Sub Incluir_Click(Index As Integer)

Dim BDdados As ADODB.Connection

Set BDdados = New ADODB.Connection

BDdados.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=SENHA;" & "Data Source=bd_form1.mdb;" & "Persist Security Info=False"

BDdados.Open

BDdados.Execute ("insert into BD_UNICO (nome,end,fone) values ('" & nome.Text & "','" & ende.Text & "','" & fone.Text & "')")

End Sub