Código vb.Net:
Ver originalPublic Class FrmGroups
Dim N As Integer = 0
Dim cn As New OleDb.OleDbConnection("Provider =Microsoft.Jet.OLEDB.4.0;Data Source =F:\astute\SWD.mdb; User Id =; Password =")
Sub mostrar()
Dim da As New OleDb.OleDbDataAdapter("select * from group", cn)
Dim ds As New DataSet
Try
da.Fill(ds, "Group")
DataGridView1.DataSource = ds.Tables("Group")
Catch ex As Exception
MessageBox.Show("ERROR: " & ex.Message & vbCrLf & "AQui te dira cual es el error")
End Try
End Sub
Private Sub FrmGroups_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call mostrar()
CARGAR()
BLOQUEAR()
CARGAR_CBO()
End Sub
Sub CARGAR()
Dim da As New OleDb.OleDbDataAdapter("select * from group", cn)
Dim ds As New DataSet
Try
da.Fill(ds, "group")
cbogidgroup.DataSource = ds.Tables("group")
cbogidgroup.DisplayMember = "cbogidgroup"
Catch ex As Exception
MessageBox.Show("ERROR: " & ex.Message & vbCrLf & "AQui te dira cual es el error")
End Try
End Sub
End Class