实时错误424，要求对象

[u010317911]

Private Sub Form_Load()
Dim temp As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\Librarian.mdb;Persist Security Info=False"此处为错误提醒
Adodc1.RecordSource = "select * from ｕｓｅｒ"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
Form1.BackColor = RGB(153, 177, 189)
SkinH_Attach
SkinH_AttachEx App.Path & "\skin\Skin0.she", vbnullstriing
With Adodc1.Recordset
.MoveFirst
While Not .EOF
Combo1.AddItem .Fields("用户名")
.MoveNext
Wend
End With
Combo1.ListIndex = 0
Open App.Path & "\skin\skin.txt" For Input As #1
Line Input #1, temp
SkinStyle = Val(Trim(temp))
Line Input #1, temp
AeroStyle = Trim(temp)
Close #1
Open App.Path & "\parameter.dat" For Input As #1
Line Input #1, temp
OvertimeForm = Trim(temp)
Line Input #1, temp
Validtime = Val(Trim(temp))
Line Input #1, temp
LibraryName = Trim(temp)
Line Input #1, temp
OrderDays = Val(Trim(temp))
Close #1
End Sub

[worldy]

你的窗口上应该先放一个adodc控件，按照你的代码，不能改名字

[bcrun]

楼主可能走入了学习误区，刚学编程没几个小时，基本的概念还所指不多，就指望能轻松大段复制别人的代码重用。