Dim cnFrom As New ADODB.Connection 'from excel
Dim cnTo As New ADODB.Connection 'to sqlserver
Dim rsFrom As New ADODB.Recordset
Dim rsTo As New ADODB.Recordset
Dim rsTableName As New ADODB.Recordset
Dim intTblCnt As Integer
Dim str1 As String
Dim intCounts As Integer
'连sqlserver
cnTo.Open "Driver={sql server};server=./hd;uid=sa;pwd=1;database=pms_t"
'连接Excel
cnFrom.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:/vb/aa.xls;" & _
"Extended Properties=Excel 8.0"
cnFrom.CursorLocation = adUseClient
'取excel所有表单名
Set rsTableName = cnFrom.OpenSchema(adSchemaTables)