用户定义类型未定义怎么解决

Question

Private Sub Command1_Click()
Dim strName As srting
strName = Text1.Text
Adodc2.RecordSource = "select * from 员工表 where 姓名='" & strName & " '"
Adodc2.Refresh
Frame2.Visible = True
End Sub
一运行到这里就提示用户定义类型未定义
都不知道怎么解决

Answer 1

Dim strName As srting字符串类型是： String
自己输入错了！！！！话说，你这代码用到了ADO对象，引用相应的库了吗…………

Answer 2

需要引用什么库啊
说的是第二行， 你写的 srting 正确的拼写是string

Answer 3

需要引用什么库啊
从“Adodc2”来看，似乎是用的“数据库控件”？
这样倒是不需要特意的引用什么库了，在工程中加入这种控件时，它自动添加相关引用。至于“查询结果”，我就不说什么了，我从来未使用过这东西，没经验。

Answer 4

先选择菜单“工程”——“组件”（不确定中文菜单名，我用的是英文版），在其中勾选“Microsodt Data Control 6.0 (OLEDB)”，确定。然后在控件窗口中选择新添加上来的 ADODC，在窗体上用鼠标勾画出控件的轮廓。在属性窗口中，将其名称改为 Adodc2。