public partial class ProgressBar : 
        System.Windows.Forms.ProgressBar,
        oRRoSoft.Windows.Forms.Interfaces.IProgressbar

    public oRRoSoft.Data.DataTable 
        CreateDataTable(string SQLString, _
          oRRoSoft.Windows.Forms.Interfaces.IProgressbar PB)

    Private con As oRRoSoft.Data.Connection
    Private cmd As oRRoSoft.Data.Command
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        con = New oRRoSoft.Data.Connection(CreateConnectionString("C:\DB.mdb", _
        False))
        con.Open()
        cmd = con.CreateCommand
 
        Dim th As Threading.Thread = New Threading.Thread(AddressOf Loading)
        th.Start()
 
    End Sub
 
    Private Sub Loading()
        Dim dt As oRRoSoft.Data.DataTable = cmd.CreateDataTable("SELECT" & _
          "LfdNr_Room, Room_Name FROM Room", ProgressBar1)
    End Sub