VB Data Communication Across 3-Tier

See more:

VB

DataTable

data-binding

dataset

My elements on the form in the presentation tier is not binding, i have code snippets below, can anyone point me in the right direction?

Pretension Tier

Private Sub frmCompany_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim comCon As New LogicTier.LogicTier.Company
    DataSetCompany = comCon.loadCompanies
    adpCompany.Fill(DataSetCompany)
    enablebinding()
    disablefields()
End Sub
  Private Sub enablebinding()
    txtCompNo.DataBindings.Add("Text", DataSetCompany, "Company.CompanyNo")
   End Sub

Logic Tier

Public Function loadCompanies()
        Dim dtInstance = DBOperations.GetInstance
        Dim dsCompany As DataSet = dtInstance.getCompanyDataSet()
        Return dsCompany
 End Function

Data Tier

Private Sub New()
    Me.connection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source = winsteelVers5.mdb")

End Sub  

Public Shared ReadOnly Property GetInstance As DBOperations
    Get
        Static Instance As DBOperations = New DBOperations
        Return Instance
    End Get
End Property

Public Function getCompanyDataSet()
    Me.connection.Open()

    Dim daCompany As New OleDbDataAdapter("Select * From Company", Me.connection.ConnectionString)

    Dim dsCompany As New DataSet("Companys")

    daCompany.FillSchema(dsCompany, SchemaType.Source, "Company")
    daCompany.Fill(dsCompany, "Company")

    Return dsCompany
End Function