SQLClient Efficiency

Hi guys,

Since the project that i'm developing is rapidly increasing, the pages seems to be getting slower everytime you view it. I would like to ask if code below would be efficient enough for several simultaneous request of data or if you have any other suggestions, you are welcome to add:

1    Public Shared Function QueryDatabase(ByVal sql As String) As DataTable
2   
3                ' SQL Server Connection Object Variable
4                Dim _oConnection As SqlConnection
5                ' SQL Server Command Object Variable
6                Dim _oCommand As SqlCommand
7                ' SQL Server Data Adapter Object Variable
8                Dim _oAdapter As SqlDataAdapter
9                ' DataTable Object Variable (Early Binding)
10               Dim _oDataTable As New DataTable
11  
12               ' Instantiate Connection Object with connection string
13               _oConnection = New SqlConnection("Data Source=XXX.XXX.XXX.XXX;Initial Catalog=XXXXXX;User=XXX;Pwd=XXX;")
14               ' Instantiate Command Object with SQL String and Connection Object
15               _oCommand = New SqlCommand(sql, _oConnection)
16               ' Instantiate Data Adapter Object with Command Object
17               _oAdapter = New SqlDataAdapter(_oCommand)
18               ' Fill the DataTable Object with the retrieve records
19               _oAdapter.Fill(_oDataTable)
20  
21               ' Release resources used by DataAdapter Object
22               _oAdapter.Dispose()
23  
24               ' Release resources used by Command Object
25               _oCommand.Dispose()
26  
27               ' Close the connection of the Connection Object from SQL Server
28               _oConnection.Close()
29  
30               ' Release resources used by Connection Object
31               _oConnection.Dispose()
32  
33               ' Return the retrieve records
34               Return _oDataTable
35  
36           End Function
 Thanks a lot.