我写的这段代码哪里出错了呀？

我写的这段代码哪里出错了呀？
Dim rs As Adodb.Recordset
dim cr as string
cr="123456"
    Dim strSQl As String
    strSQl = "select * from reg where username like " & cr    Set rs = conn.Execute(strSQl)
    Set Text1.DataSource = rs
    If rs.BOF = False Then
    Text1.Text = rs("softreg")
    Else
    Text1.Text = "未找到"
    End If
Text2.Text = cr
运行提示说是至少一个值未指定
Set rs = conn.Execute(strSQl)
这一行出错。