Imports ADODB.CursorLocationEnum
Imports System.DBNull ''函数IsDBNull的来源 Class ADOAccess
Private mCnnDB As New ADODB.Connection() …
End Class
调用上面生成的组件方法如下：在Visual Basic2017中建立一项目，在窗口Form1中加入一AxMSFlexGrid网格命名为MsGrid1,布置如下
然后引用刚建立的Dll。方法是选择项目菜单的添加引用，选择项目页，按浏览找到其DLL文件确定后引用完成。在Form1中定义一ADOAccess对象，在Load事件中编写调用代码，分别测试其功能，代码如下：
Public Class Form1
Inherits System.Windows.Forms.Form Dim DB As New ADOAccess()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rec As New ADODB.Recordset() ''DB.ConnAccess(\''DB.ConnSQLServer(\''DB.ConnODBC(\
''DB.ConnOracle(\''rec = DB.OpenTable(\rec = DB.OpenTable(\DB.FillMsGrid(MSGrid1, rec) End Sub
说明：
1.你的机上要有Access数据库文件（e:\\test.mdb），MS Server数据库中有数据库test，doc_file 为test中的表，Oracle数据库中有表DEMO.customer
2. wj-1058为MS Server服务器名，wj-1059为Oracle服务器名，\分别为用户名及口令。
3. 一次仅连接一种数据库。
以上程序在Visual Studio2017中调试通过。
总结：上面方法介绍了刚面世不久的Visual Basic2017中有关数据库的开发，ADO在Visual Basic2017中的应用，连接几种最实用的数据库，且介绍了编写组件的方法。
本讲结束。