谢谢斑主！我有一本《Visual Basic程序设计简明教程》(刘炳文编著　清华大学出版社)，不过里面关于数据库这一块并不详细，很多内容都没有。斑主能不能给推荐一本？

..那就买本专讲数据库的咯..

偶又想起一个问题：如果excel文件是一个加密的文件，在ＶＢ中应该添加什么语句才能读取这个文件？谢谢！

Private Sub Form_Click()
Me.AutoRedraw = True
Dim xlsApp As Excel.Application
Dim xlsworkbook As Excel.Workbook
Dim xlssheet As Excel.Worksheet

Set xlsApp = CreateObject("Excel.Application")
Set xlsworkbook = xlsApp.Workbooks.Open("D:\mdb\Book1.xls", , , , "123456" )
xlsApp.Visible = True

Set xlssheet = xlsworkbook.Worksheets.Item(1)

Dim Mat(1 To 10, 1 To 4) As String
Dim i As Integer, j As Integer

For i = 1 To 10
For j = 1 To 4
Mat(i, j) = xlssheet.Cells(i, j)
Next
Next

For i = 1 To 10
For j = 1 To 4
Print Mat(i, j);
Next
Print
Next

Set xlssheet = Nothing
Set xlsworkbook = Nothing
Set xlsApp = Nothing
End Sub

版主太棒了，^_^

版主好耐心哦，提问者最好自己先在网上搜索一下可以自己找到的知识，自己做一部分后再提出问题吧。