Dim oSQL_CONNECT As New SqlConnection("User ID=" + gl_Username + ";Password=" + _
  gl_Password + ";Initial Catalog=" + gl_Database + ";Data Source=" + gl_Server)
Dim oDS As DataSet
Dim cSQL As String = "SELECT * FROM MA"
Dim oDA As New SqlClient.SqlDataAdapter
Dim oDT As New DataTable
Dim oBS As New BindingSource		
 
oDA = New SqlClient.SqlDataAdapter(cSQL, oSQL_CONNECT)
oDA.Fill(oDS, oDT)
oBS.DataSource = oDS.Tables(oDT)
DGV.DataSource = oBS