Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strConn As String = "Server=MAE-PC;Database=researchDB;Trusted_Connection=True;"
Dim SQLConn As SqlConnection = New SqlConnection()
SQLConn.ConnectionString = strConn
SQLConn.Open()
Dim sqlCompare As String
sqlCompare = "SELECT * FROM researchs EXCEPT SELECT * FROM researchs_V"
Dim da As New SqlDataAdapter(sqlCompare, SQLConn)
Dim ds As New DataSet()
da.Fill(ds)
DataGridView1.DataSource = ds
End Sub
End Class