主题：[求助]已发货客户提醒审核代码

很简单的：

Dim dt As Date = Date.Today.AddDays(-3)
Dim nms As String  = DataTables("表A").GetComboListString("客户姓名","审核 = False And 发货日期 <= #" & dt & "#")
If nms > "" Then
    MessageBox.show(nms & "已经发货,请审核")
End If