我在窗体上放置了一个MaskEdBox控件,拿到时间格式
Private Sub Form_Load()
     
     Me.Height = 8000
     Me.Width = 13000
     Me.Move (main.ScaleWidth - Me.Width) / 2, (main.ScaleHeight - Me.Height) - 1000
     nowdata = Format$(Date, "YYYY-MM-DD")
     MaskEdBox2.Mask = "####-##-##"
     MaskEdBox2.MaxLength = 10
     MaskEdBox2.PromptChar = " "
     MaskEdBox2.Text = nowdata
     Call liekuan
     Call cmdload
End Sub
    
           执行到sq赋值的时候,会提示字符串转datetime格式出现错误,
Private Sub chaxun_Click() '查询数据并冲入msflexgrid
    Dim sq As String
    connecttoserver
    sq = "select * from tb_cl  where datediff(d,flzrq,'MaskEdBox2.Text')<=30"*************这里
    Call executesql(sq)  '首先判断sql语句执行是否出错
    If Err.Number <> 0 Then
         MsgBox "错误代码:" & Err.Number & vbCrLf & _
          "错误描述" & Err.Description, vbCritical + vbOKOnly, "连接错误"
        disconnect
        Exit Sub
    End If