你使用了DAO访问数据库，需要引用DAO对象库才行。
具体办法：点击VB的“工程”-->“引用”菜单，在弹出的对话框中选中“Microsoft DAO 3.X Objects Library”,确定即可。
参考资料：http://zhidao.baidu.com/question/7980889.html
无须那么烦，将以下代码复制到VB代码窗口，不必加任何引用或ActiveX控件，按F5运行即可。
'==========以下为代码=========
Private Sub Form_Load()
Dim oWord As Object
Dim oDoc As Object
Set oWord = CreateObject("word.application")
Set oDoc = oWord.Documents.Add
oWord.Visible = True
End Sub
参考资料：Microsoft VB 中国区技术支持中心
