VB：实时错误424 要求对象，跪求高手相助，急！
下面是整个页面的代码，程序提示黄色的地方报错，错误是：实时错误424 。请各位高手看看，帮帮我吧Private SqlCon As New ADODB.Connection
Private SqlCmd As New ADODB.Command
Private SqlRes As New ADODB.Recordset
Dim sqlstr As String
Private Sub Command1_Click()
qiangdanado.Visible = tureqiangdanado.RecordSource = "select ddh,cph,sl,gj from dhxm where gkh like '%" + Trim(Text1.Text) + "%'and dddate like '%" + Trim(Text2.Text) + "%' "
qiangdanado.Refresh
Set qingdandg.DataSource = qiangdanado
qingdandg.Refresh
End Sub
Private Sub Command2_Click()
index.Show
End Sub
Private Sub Form_Load()
SqlCon.Provider = "OraOLEDB.Oracle"
SqlCon.Open "Server=localhost;User ID=SYSTEM;Password=ABC;Data Source= DDGL"
SqlCmd.ActiveConnection = SqlCon
SqlCmd.CommandText = "SELECT gkh,dddate FROM dhxm "
Set SqlRes = SqlCmd.Execute
qingdanado.Visible = True
qingdanado.RecordSource = "select * from dhxm"
qingdanado.Refresh
Set qingdandg.DataSource = qingdanado.Recordset
qingdandg.Refresh
End Sub --------------------编程问答-------------------- 黄色部分后面换一行 --------------------编程问答-------------------- 黄色！正好看不到！真无语，居然是黄色... --------------------编程问答-------------------- 从代码看报错行(黄色句)拼写错误,应该为:
qiangdanado.Visible = True
不是:
qiangdanado.Visible = ture
其它如1楼指出的后句换行写. --------------------编程问答--------------------
正解 --------------------编程问答-------------------- 估计是 复制+粘贴+修改 造成的 --------------------编程问答--------------------
+1
补充：VB , 基础类
