错误的参数号或无效的属性赋值

Option Compare Database
Private Sub Command28_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sqlstr As String
Set cn = CurrentProject.Connection
If IsNull(Me.Text26) Then
MsgBox "请输入进货编号！", vbOKOnly + vbCritical, "提示"
Me.Text26.SetFocus
Exit Sub
Else
sqlstr = "select * form 进货信息表 where 进货编号=" '&text26&'""
rs.Open sqlstr, cn, adopendynamic, adopendynamic, adlockoptimistic, adcmdtext                          （rs.open这里提示错误的参数号或无效的属性赋值）
If Not rs.EOF Then
Me.进货编号 = Trim(rs(0))
Me.商品编号 = Trim(rs(1))
Me.进货单价 = Trim(rs(2))
Me.进货数量 = Trim(rs(3))
Me.进货单位编号 = Trim(rs(4))
Me.进货日期 = Trim(rs(5))
Me.存放位置 = Trim(rs(6))
Me.经手人 = Trim(rs(7))
Else
MsgBox "该进货编号不存在，请重新输入！", vbOKOnly + vbInformation, "提示"
Me.Text26 = ""
End If
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing


End Sub