Dim conn As New SqlConnection(strConn) conn.Open() Dim myCom As New SqlCommand myCom.CommandText = \"Select * from Branch\" myCom.CommandType = CommandType.Text myCom.Connection = conn
Dim dr As SqlDataReader dr = myCom.ExecuteReader
If dr.HasRows = True Then Dim dt As New DataTable dt.Load(dr) DataGridView1.DataSource = dt Else MessageBox.Show(\"ไม่พบข้อมูล\") End If