本人初学者，想问一下VB可以链excel做数据库吗？如果可以，该如何做

本人菜鸟，想问一下VB可以链excel做数据库吗？如果可以，该怎么做？
RT，如果有哪位大神会的话请说一下！

[解决办法]

VB code

Sub 方法1()    '引用 MicrosoftOffice11.0 Object Library    Dim xlApp As Excel.Application    Dim xlBook As Excel.Workbook    Dim xlSheet As Excel.Worksheet        Set xlApp = CreateObject("Excel.Application")    Set xlBook = xlApp.Workbooks.Open("aaa.xls")    xlApp.Visible = False    Set xlSheet = xlBook.Worksheets("sheet1")        '        '处理过程        '    xlBook.Close (True)    xlApp.Quit    Set xlApp = NothingEnd SubSub 方法2()    '引用 Microsoft ActiveX Data Objects X.X Library    Dim cn As New ADODB.Connection '定义数据链接对象，保存连接数据库信息；请先添加ADO引用    Dim rs As New ADODB.Recordset  '定义记录集对象，保存数据表        strCn = "Provider=sqloledb;Server=服务器名称或IP地址;Database=数据库名称;Uid=用户登录名;Pwd=密码;"    '定义数据库链接字符串    '下面的语句将读取数据表数据，并将它保存到excel工作表中：画两张表想像一下，工作表为一张两维表，记录集也是一张两维表    strSQL = "select  字段1,字段2 from  表名称" '定义SQL查询命令字符串    cn.Open strCn   '与数据库建立连接，如果成功，返回连接对象cn    rs.Open strSQL, cn  '执行strSQL所含的SQL命令，结果保存在rs记录集对象中        Do While Not rs.EOF '当数据指针未移到记录集末尾时，循环下列操作        '        '记录处理过程        '        rs.MoveNext                      '把指针移向下一条记录    Loop                                 '循环    rs.Close   '关闭记录集，至此，程序将把某数据表的字段1和字段2保存在excel工作表sheet1的第1、2列，行数等于数据表的记录数    cn.Close  '关闭数据库链接,释放资源End Sub