提示 标准表达式中数据类型不匹配

Dim strID As String
    Dim strSQL As String
    Dim cnn As ADODB.Connection
    Set cnn = CurrentProject.Connection
    cnn.BeginTrans
    
    strID = "CG" & Format(Int(Mid(DMax("采购订单号", "采购订单表"), 3)) + 1, "00000")
    If strID = "CG" Then
        strID = "CG00001"
    End If
    strSQL = "insert into 采购订单表(采购订单号,采购日期,供应商ID,经办人,交货开始日期,交货截止日期,制单人,制单时间,备注) values ('" & strID & "','" & Me.采购日期 & "'," & Me.供应商 & ",'" & Me.经办人 & "','" & Me.交货开始日期 & "','" & Me.交货截止日期 & "','" & Me.制单人 & "','" & Me.制单时间 & "','" & Me.备注 & "')"
    Debug.Print strSQL
    cnn.Execute strSQL
    cnn.CommitTrans