نوشتن کد بهينه چند خطي براي يک تابع

[RealDream]

درود دوستان . بدون مقدمه برم سراغ اصل مطلب :
من يه وب سرويس نوشتم و مشکلي هم در اجرا نداره فقط با توجه به مراجعات مکرري که بهش ميشه سيستم شديد تحت فشاره . ميدونم کدي که نوشتم خيلي در هم هست و ايراد از همون پردازش هاي مکرر ناشي ميشه حالا دوستان اگه بتونن کد جايگزين براي من بنويسن ممنون ميشم فقط سادگي و سرعت و سهولت مهم هست . اين کد منه :


<%@ WebService Language="vb" Class="RecRead" %>
Imports System.Web.Services
Imports System.Data
Imports System.Data.OleDb
<WebService(Namespace:="http://MySite.Com")> _
Public Class RecRead
Inherits System.Web.Services.WebService
<WebMethod()> _
Public Function TotalRec() As Long
Dim objEmpDR As OleDbDataReader
Dim RecordCount As Long
Dim objEmpConn As OleDbConnection
Dim objEmpCmd As OleDbCommand
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Data.mdb") & ";"
Dim strSQL As String = "SELECT COUNT (*) FROM T1"
objEmpConn = New OleDbConnection(strConn)
objEmpCmd = New OleDbCommand(strSQL, objEmpConn)
objEmpConn.Open()
RecordCount = objEmpCmd.ExecuteScalar()
objEmpDR = objEmpCmd.ExecuteReader(CommandBehavior.CloseConne ction)
objEmpDR.Close()
Return RecordCount
End Function
<WebMethod()> _
Public Function GetRecord(ByVal RecNum As Long) As String
Dim objEmpDR As OleDbDataReader
Dim objEmpConn As OleDbConnection
Dim objEmpCmd As OleDbCommand
Dim MyStr As String
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Data.mdb") & ";"
...
...
...
...
...
objEmpDR.Close()
REM MyStr=Filde#1 & Filde#2 & Filde#3 & Filde#4
Return MyStr
End Function
End Class

توي تابع GetRecord بايد کار انجام بشه . قضيه هم اينطوريه که يه شماره رکورد ارسال ميشه و سيستم 4 تا فيلد رو که اندازه همه اونا 15 کاراکتر هست رو به صورت چسبيده بهم در قالب يه رشته 60 کاراکتري برميگردونه .

يا علي