nombre de tablas

Un saludo estoy realizando una funcion que carga el un
dataset toda una base de de datos pero en el proceso es
este:

Dim objConnection As System.Data.SqlClient.SqlConnection
Dim objDataAdapter As System.Data.SqlClient.SqlDataAdapter
Dim dtTabla As DataTable
Dim dsTmpTabla As DataSet
Dim drCurrent As DataRow
Dim strTable As String
Try
objConnection = New System.Data.SqlClient.SqlConnection
(StringConnection)
objConnection.Open()
objDataAdapter = New
System.Data.SqlClient.SqlDataAdapter("SELECT name FROM
sysobjects WHERE (xtype = 'U')", objConnection)

dsTmpTabla = New DataSet("sysobjects")
objDataAdapter.FillSchema(dsTmpTabla,
SchemaType.Source, "sysobjects")
objDataAdapter.Fill(dsTmpTabla, "sysobjects")
dtTabla = dsTmpTabla.Tables("sysobjects")
For Each drCurrent In dtTabla.Rows
strTable = drCurrent.Item(0).ToString()
Dim objTmpDataAdapter As New
System.Data.SqlClient.SqlDataAdapter("SELECT * FROM " &
strTable, objConnection)

objTmpDataAdapter.FillSchema(dsTmpTabla,
SchemaType.Source, strTable)
objTmpDataAdapter.Fill(dsTmpTabla, strTable)
Next
Catch ex As Exception
MsgBox(ex.Message)
Finally
objConnection.Close()
End Try
Return dsTmpTabla

el problema es que cuando se cargan nombres de tablas como
"orden_compra" provoca la siguiente excepcion:
Invalid object name 'orden_compra'. Como lo soluciono?