Public Shared WithEvents connstr As New String("data source=.\SQLEXPRESS;initial catalog=st01;integrated security=sspi;")
 
ana class taki kodum
 
 Public Interface Igurup
 
        Property gurupno() As ULong
        Property kod() As String
        Property tanim() As String
        Property kategorino() As ULong
 
        Function gliste() As clsgurup() 'gurup class ının bir arraylist olarak kopyasını kullanıyorum.
        Function dsgliste(ByVal ds As System.Data.DataSet) As DataSet 'dataset ile bağlanıp veriyi çekiyorum.
    'dataset ile gelen veriyi değişikli olması halinde tümüyle update/kayıt ediyorum.
    Function dsgtumunukaydet(ByVal ds As System.Data.DataSet) As Boolean
        Function gbul(ByVal gurupno As ULong) As Boolean
        Function gekle(ByVal kod As String, ByVal tanim As String, ByVal kategorino As ULong) As Boolean
        Function gguncelle(ByVal gurupno As ULong, ByVal kod As String, ByVal tanim As String, ByVal kategorino As ULong) As Boolean
        Function gsil(ByVal gurupno As ULong) As Boolean
 
    End Interface

Public Function dsgliste(ByVal ds As System.Data.DataSet) As System.Data.DataSet Implements clscirak.Igurup.dsgliste
 
        ds.Clear()
        Try
            Dim da As New SqlDataAdapter("Select * from gurup", conn)
            da.Fill(ds, "gurup")
 
        Catch ex As SqlException
 
        Finally
 
        End Try
        Return ds
 
    End Function
 
veriyi user control e eklediğim bir datagridview a atmaya çalışıyorum
 
    Private Sub ucgurup_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            dgwgurup.DataBindings.Clear()
            sqlda.TableMappings.Add("gurup", "gurup")
            sqlda.Fill(dsg, "gurup")
            dgwgurup.DataSource = dsg.Tables("gurup")
        Catch ex As ApplicationException
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub