VB导入EXCEL并保存到SQL SEVER数据库中,该怎么处理

VB导入EXCEL并保存到SQL SEVER数据库中
点击导入按钮，可以选择要导入的EXCEL，把EXCEL中的数据导入到SQL SEVER数据库中，在VB中的一个表中显示出来，哪位大侠帮一下，小妹不胜感谢！！！！

[解决办法]
参考

VB code

Private Sub Command1_Click()    Dim cn As ADODB.Connection    Set cn = New ADODB.Connection    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mydb2.mdb;;Jet OLEDB:Database Password=111"    cn.Execute "Insert Into [f2] Select * From [Sheet1$] In '" & App.Path & "\f1.xls' 'EXCEL 8.0;'"    cn.Close    Set cn = NothingEnd Sub