1. Create sub
Private Sub refresh_data()
Dim Ds as new dataset
Dim Query as String = "Select * from Supplier_master where Supplier_ID = '" & cmb_supplierID.text & "'"
Dim SQL_Adapter as new SqlDataAdapter(Query,Connection)
SQL_Adapter.fill(Ds)
DataGridView1.DataSource = Ds.Tables(0)
End Sub
2. in event combo box selected change
call refresh_data()