If test = 1 Then
        If test_detail = "" Then
        Frame_test_detail.SetFocus
        MsgBox "กรุณาใส่ข้อมูลด้วย..", vbOKOnly + vbInformation, "ไม่มีข้อมูล"
        Exit Sub
        End If
    End If

ประมาณนี้ครับ ให้ผู้รู้แนะนำต่อ
             

คือ Text0 กับ Text1 ครับ ผมลองดูแล้วยังงงๆอยู่เลยครับผม

private sub command1_click()
    if isnull(text0) and isnull(text1) then
        msgbox "ยังไม่ได้ใส่ข้อมูล",vbokonly+vbinformation,"ตรวจสอบ"
        text0.setfocus
        exit sub
    end if
end sub

คุณ Ditasik ครับ ดูเหมือนว่าจะได้แล้วครับผม แต่พอเราใส่ข้อมูลเข้าไปครั้งแรกมันก็ให้ผ่านนะครับ ผมลองดัดแปลงโค๊ดของคุณ Ditasik เป็น
Private Sub Command4_Click()
    If IsNull(Text0) And IsNull(Text1) Then
       MsgBox "คุณยังไม่ได้ใส่ข้อมูล", vbOKOnly + vbInformation, "คำเตือน"
      Text0.SetFocus
     Else
        MsgBox "ยินดีต้อนรับ...", vbOKOnly
        Exit Sub
    End If
    End Sub
แบบนี้ครับ พอคีย์ข้อมูลเข้าไปมันก็ขึ้น "ยินดีต้อนรับ" ครับ แต่พอเราสั่งเคลียร์ทั้งหมดแล้ว พอคลิกอีกมันก็ขึ้น "ยินดีต้อนรับ" ครับ ต้องปิดฟอร์มแล้วเปิดใหม่มันถึงจะเริ่มใหม่ครับ ช่วยดูให้หน่อยครับผม

ผมไม่ทราบว่าคุณclear ข้อมูล อย่างไร
ถ้า clear โดยใช้ text0="" ,text1=""
คุณดัก error ใหม่ ตามนี้
If (IsNull(Text0) or Len(Trim(Text0))=0) _
    And (IsNull(Text1) or Len(Trim(Text0))=0) Then
     ......
else
     ......
end if

If IsNull(Text0) And IsNull(Text1) Then
แก้เป็น
If (IsNull(Text0) or Text0="") And (IsNull(Text1) or Text1="") Then

ต้องขอขอบคุณทุกท่านอย่างสูงครับที่ได้ให้ความรู้ดีๆกับผมครับ ตอนนี้ทำได้ดังที่ตั้งใจเลยไว้เลยครับ ขอบคุณมากครับ