Dim M1 As New MISSQL
Dim str1 As String
Dim dt As DataTable
str1 = "SELECT c.CID , m.PreName as คำนำหน้า , m.Name as ชื่อ , m.LastName as นามสกุล , c.month as เดือน , c.year as ปี FROM CompleteCheck c Left Join member m on c.RecID = m.userID WHERE c.GiveID Like N'%" & TextBox1.Text & "%' AND c.month='" & Month(Now) & "' AND c.year='" & Year(Now) & "' AND c.Result='false'"