想用vba从word中提取数据放到access中，出了点问题请高手解决一下

Question

Private Sub Auto_click()
Dim ado As New ADODB.Connection
Dim adoCon As New ADODB.Recordset
Dim conStr As String
Dim sqlStr As String
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=d:\路径.accdb"
adoCon.ConnectionString = conStr//编译提示这里有问题，说connectingstring方法不存在
adoCon.Open
adoRS.Open "shiyan"//shiyan是我的access中数据库的表名
End Sub

Answer 1

adoCon.ConnectionString = conStr//编译提示这里有问题，说connectingstring方法不存在 fail
是不是打错了adoCon.Open之后，判断state属性是否为1
if adoCon.state<>1 then msgbox "err connect"adoRS.Open "shiyan"//shiyan是我的access中数据库的表名 failadoRS.Open SQL  应该写SQL语句

Answer 2

adoCon是Recordset类。
ado是Connection类ado.ConnectionString = conStr