[MOHAMMED ALZWI]

السلام عليكم 
هل يمكن استعلام في قاعدتين بيانات مختلفتين 
نفس بيانات الجدول  في كلا القاعدتين 
واظهار الناتج البحث في DataGridView1 

استطع البحث في قاعدة البيانات واحدة واظهار المطلوب كم مرفق الكود المستخدم 

    Public Function BANK_WAHDA(ByVal montheee_ As String, ByVal type_ As String) ', ByVal SATE_ As String) ', ByVal DAT1_ As Date, ByVal DAT2_ As Date) As DataTable
        Dim CON As New CLS_CON
        Dim DT As New DataTable
        DT.Clear()
        DT = CON.SELECT_TXT("  SELECT       Account_No, AllValue , '" & montheee_ & "',Full_Name         FROM            dbo.T_Instrument        WHERE       dbo.T_Instrument.TopBankName =  '" & type_ & "'")
        Return DT
    End Function



=======================================================================

    Sub sersh_WAHDA_Bank()
        Try
            Dim count_ As Integer = 0
            Dim dt As New DataTable
            dt.Clear()
            dt = CLS_CON_.BANK_WAHDA(TextBox3.Text, ComboBox3.Text)
            If dt.Rows.Count > 0 Then
                DataGridView1.RowCount = dt.Rows.Count
                For i As Integer = 0 To dt.Rows.Count - 1
                    DataGridView1.Rows(count_).Cells(0).Value = dt.Rows(i)(0).ToString()
                    DataGridView1.Rows(count_).Cells(1).Value = dt.Rows(i)(1).ToString()
                    DataGridView1.Rows(count_).Cells(2).Value = dt.Rows(i)(2).ToString()
                    DataGridView1.Rows(count_).Cells(3).Value = dt.Rows(i)(3).ToString()
                    count_ = count_ + 1
                    Label1.Text = DataGridView1.Rows.Count
                Next
            Else
                DataGridView1.Rows.Clear()
                MessageBox.Show("  لا توجد بيانات  ", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub