表指的是表名.

do while not rst.eof
   com.additem rst("your_fields")
   rst.movenext
loop

给你一段如何调取SQL Server数据库中数据表的源码:
Dim mcnn As New OleDb.OleDbConnection(BuildCnnStr(MSserver, MDdatabase))
Dim mycommand As New OleDb.OleDbCommand("sp_tables", mcnn)
            Dim myread As OleDb.OleDbDataReader
            Try
                mycommand.CommandType = CommandType.StoredProcedure
                mcnn.Open()
                myread = mycommand.ExecuteReader
                Do While myread.Read
                    If myread.GetString(3) = "TABLE" Then
                        Me.Cmbtable.Items.Add(myread.GetString(2))
                    End If
                Loop
                mcnn.Close()
            Catch ex As Exception
                MessageBox.Show(ex.Message, "错误信息", MessageBoxButtons.OK)
            End Try