รบกวนอีกแร้วคับ^^ ค้นหาข้อมูลสองตาราง แล้วจะให้แจ้งว่าไม่เจอตารางไหนช่วยดูโค้ดทีคับ

If txtSearch.Text <> "" Then
            Try

                Dim c1 As New ConSql
'หาทะเบียนรถ นะคับ
                Dim dt As DataTable = c1.GetDataTable("select * from TbCar where Regis_car = '" & txtSearch.Text & "'")
                Dim dr As DataRow = dt.Rows(0)
'หารหัสพนักงาน
                Dim dt2 As DataTable = c1.GetDataTable("select StaffID from TbStaffID where StaffID = '" & txtStaff.Text & "'")
                Dim dr2 As DataRow = dt2.Rows(0)
                txtRegis_Car.Text = dr("Regis_car").ToString
                txtContract_num.Text = dr("Contract_num").ToString
                txtBrand.Text = dr("Brand").ToString
                txtVersion.Text = dr("Version").ToString
                txtMachine_num.Text = dr("Machine_num").ToString
                txtBody_num.Text = dr("Body_num").ToString
                btnSearch.Enabled = True
                txtShowErrorcar.Text = ""


                If (dt.Rows.Count > 0 AndAlso dt2.Rows.Count > 0 AndAlso txtSearch.Text = "") Then
                    gvchk1.Enabled = True
                    gvchk2.Enabled = True
                    btnSubmit.Enabled = True
                ElseIf dt.Rows.Count = Null Then

                End If


            Catch ex As Exception
                MessError = "ไม่พบรหัสรถคันนี้"
'txtshowerrorcar.text เป็นโชว์เมื่อหาชื่อรถไม่เจอ 
                txtShowErrorcar.Text = MessError
                txtRegis_Car.Text = ""
                txtContract_num.Text = ""
                txtBrand.Text = ""
                txtVersion.Text = ""
                txtBody_num.Text = ""
                txtMachine_num.Text = ""
                gvchk1.Enabled = False
                gvchk2.Enabled = False
                btnSubmit.Enabled = False
            End Try
        Else
            'MessError = "กรุณาระบุรหัสพนักงานด้วยค่ะ"
            'MultiView.gvCK1.rdS1P10.ClearSelection()
        End If