VB：实时错误424 要求对象，跪求高手相助，急！

[leilei1421]

下面是整个页面的代码，程序提示黄色的地方报错，错误是：实时错误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

[贝隆]

黄色部分后面换一行

[cqq_chen]

黄色！正好看不到！真无语，居然是黄色...

[zdingyun]

从代码看报错行(黄色句)拼写错误,应该为:
qiangdanado.Visible = True
不是:
qiangdanado.Visible = ture
其它如1楼指出的后句换行写.

[LCAAA]

[Quote=引用 1 楼 veron_04 的回复:]
黄色部分后面换一行
[/Quote]
正解

[tulyroll]

估计是 复制+粘贴+修改 造成的

[三断笛]

[Quote=引用 5 楼 tulyroll 的回复:]

估计是 复制+粘贴+修改 造成的
[/Quote]
+1