Question

Private Sub Form_Load() Dim Cn As New adodb.Connection（这块提示用户类型未定义）

Private Sub Form_Load()

Dim Cn As New adodb.Connection（这块提示用户类型未定义）
Dim Rs As New adodb.Recordset（这块提示用户类型未定义）
Dim strr As String
strr = "provider=sqloledb;server=(local);uid="";pwd="";database=TABLE1"
Cn.Open strr
MsgBox "数据库已连接"
strr = "select * from TABEL1"
Rs.Open strr, Cn, adOpenDynamic, adLockOptimistic
Set datagrid1.DataSource = Rs
End Sub

Answer 1

需要添加ado
'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....

或者简单点找到ado控件 扔到窗口上 再删除 也行

Answer 2

300字

Answer 3

一楼正解

Answer 4

as