Within the following:
Code:
    Dim cn As OleDbConnection = _
          New OleDbConnection("Provider=MSDAORA.1;" & _
                              "Password=IaM123;User ID=Able;" & _
                              "Data Source=DBWorld")

    Dim da As OleDbDataAdapter
    Dim ds As New DataSet

    da = New OleDbDataAdapter("SELECT NUM, REV, ID " & _
                              "FROM   FS " & _
                              "WHERE  NUM = '22'", _
                              cn)
    cn.Open()

    da.Fill(ds, "Sheets")
where does one establish the role for the DB contact? (Eg, SET ROLE FS IDENTIFIED BY FS_APPLROL.)