ریختن رکوردهای یک رکوردست به یک جدول در SQL SERVER

[FatemehB]

سلام
من می خواهم با استفاده از کد زیر از رکوردست objRst استفاده کرده و و رکوردهای موجود در آن را به یک Table وارد کنم .
لطفا کمک کنید


Private Const SQLOLEDB = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Data"

Dim objCnn As New ADODB.Connection
Dim objCmd As New ADODB.Command
Dim objRst As New ADODB.Recordset

Dim objCnn1 As New ADODB.Connection
Dim objCmd1 As New ADODB.Command
Dim objRst1 As New ADODB.Recordset

objCnn.Open SQLOLEDB
objCmd.ActiveConnection = objCnn
objCmd.CommandType = adCmdTable
objCmd.CommandText = "T

Set objRst = objCmd.Execute

objCnn1.Open SQLOLEDB
objCmd1.ActiveConnection = objCnn1
objCmd1.CommandType = adCmdTable
objCmd1.CommandText = "tt"

objRst1.LockType = adLockOptimistic

objRst1.Open SQLOLEDB

اگر کسی برنامه نمونه دارد ممنون میشوم برایم بفرستد.