！查询的有关问题

求助！查询的问题！
我想根据文本框中输入的内容查询，可是运行时出现问题，请高手们帮我改改，急啊~~
Private Sub Command4_Click()
Adodc1.RecordSource = ""
If Len(Trim(Text18.Text)) > 0 Then
 Adodc1.RecordSource = "select * from JD where 岗位名称 like '*" & Trim(Text18.Text) & "*'"
Else
 MsgBox "请输入查询条件！", vbOKOnly, "提示"
End If
Adodc1.Refresh     对象'refresh'的方法'IAdodc'失败
If Adodc1.Recordset.RecordCount = 0 Then
       If MsgBox("没有符合条件的记录，请重新输入查询条件！", vbOKOnly, "提示") Then
        Text18.Text = ""
        Text18.SetFocus
       End If
Else
  Adodc1.Recordset.MoveFirst
  Do While Not Adodc1.Recordset.EOF
     Adodc1.Recordset.MoveNext
  Loop
End If
End Sub

[解决办法]
Adodc1.RecordSource = "select * from JD where 岗位名称 like '*" & Trim(Text18.Text) & "*'"
这个是ACCESS数据库写法，
换成SQL SERVER 的写法是把*号换成%号
[解决办法]
Adodc1.RecordSource = "select * from JD where 岗位名称 like '%" & Trim(Text18.Text) & "%'"

[解决办法]
sql=" select 工号,count(*) as 迟到次数 from Attendance group by 工号 where 到岗时间>9"

[解决办法]