VB中用excel加载数据库数据

首先在画面上添加控件ADODC，在画面上增加按钮。引用MICROSOFTEXCEL 11.0 OBJECT LIBRAIRY.
Dim EXCEAPP As Excel.Application
Dim rs As New ADODB.Recordset
Dim j As Integer
Private Sub Command1_Click()
Adodc1.CommandType = adCmdText
Adodc1.ConnectionString = "rovider=SQLOLEDB.1assword=saersist Security Info=True;User ID=sa;Initial Catalog=Ifixrecords;Data Source=LAIGANG"
Adodc1.RecordSource = "select * from inbill"
Adodc1.Refresh
Set EXCEAPP = Excel.Application
EXCEAPP.Visible = True
EXCEAPP.Workbooks.Add
Set rs = Adodc1.Recordset
EXCEAPP.Range("D2").Value = "装车报表"
EXCEAPP.Range("A3").Value = "序号"
EXCEAPP.Range("B3").Value = "日期"
EXCEAPP.Range("C3").Value = "提单号"
EXCEAPP.Range("D3").Value = "油品名称"
EXCEAPP.Range("E3").Value = "预装量"
EXCEAPP.Range("F3").Value = "实装量"
EXCEAPP.Range("G3").Value = "客户名称"
EXCEAPP.Range("H3").Value = "鹤位号"
EXCEAPP.Range("I3").Value = "操作员"
If rs.RecordCount > 0 Then
rs.MoveFirst
For i = 1 To rs.RecordCount
j = i + 3
EXCEAPP.Cells(j, 1).Value = rs.Fields("id")
EXCEAPP.Cells(j, 2).Value = rs.Fields("日期")
EXCEAPP.Cells(j, 3).Value = rs.Fields("提单号")
EXCEAPP.Cells(j, 4).Value = rs.Fields("油品名称")
EXCEAPP.Cells(j, 5).Value = rs.Fields("预装量")
EXCEAPP.Cells(j, 6).Value = rs.Fields("实装量")
EXCEAPP.Cells(j, 7).Value = rs.Fields("客户名称")
EXCEAPP.Cells(j, 8).Value = rs.Fields("鹤位号")
EXCEAPP.Cells(j, 9).Value = rs.Fields("操作员")
Next i
Else
Exit Sub
EXCEAPP.Selection.CurrentRegion.Select
End If
End Sub