vb 和数据库的链接问题

Question

我想问下 以下代码 是否可以看出  连接方法为何种连接  ？？？？？？  是 ado连接么    
Public SchCnd As StringPrivate Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)End SubPrivate Sub Cmd_Add_Click()
  '初始化FrmBorrowEdit信息
  '设置借阅编号为当前编号最大值+1
  Dim JYNo As String
  '取表中的最大借阅编号
  JYNo = "00" + Trim(Str(Val(MyBorrow.GetMaxNo()) + 1))
  FrmBorrowEdit.txtBorrowNo = "JY" + JYNo
  FrmBorrowEdit.txtBorrowDate = Date
  FrmBorrowEdit.txtReturnDate = ""
  FrmBorrowEdit.txtBCount = 0
  FrmBorrowEdit.txtCardNo = ""
  FrmBorrowEdit.txtName = ""
  FrmBorrowEdit.txtCardType = ""
  FrmBorrowEdit.txtMaxCount = 0
  FrmBorrowEdit.txtMaxDays = 0
  
  FrmBorrowEdit.txtBookNo = ""
  FrmBorrowEdit.txtBookName = ""
  FrmBorrowEdit.txtBookType = ""
  FrmBorrowEdit.txtLCount = 0
  FrmBorrowEdit.txtTotal = 0
  '设置添加图书按钮不能用
  FrmBorrowEdit.Cmd_Add.Enabled = True
  FrmBorrowEdit.Cmd_Del.Enabled = True
  FrmBorrowEdit.Cmd_Ok.Enabled = True
  '设置图书信息不能用
  FrmBorrowEdit.Frame2.Enabled = True
  '启动编辑窗体
  FrmBorrowEdit.Show 1
  '刷新DataGrid表格的内容
  GridRefresh
End Sub'单击“返回”按钮
Private Sub Cmd_Back_Click()
  Unload Me
End SubPrivate Sub Cmd_Push_Click()
'列出离应归还日期小于等于5天的图书
 FrmPush.Show 1
End SubPrivate Sub Cmd_Return_Click()
  '归还调用FrmReturnEdit窗体，需要输入借阅证号，提取该证借阅信息
  FrmReturnEdit.Show 1
  GridRefresh
End SubPrivate Sub ComboFlag_click()
  GridRefresh
End Sub'启动窗体
Private Sub Form_Load()
  '设置借阅状态为"借阅"
  ComboFlag.ListIndex = 0
  '刷新DataGrid表格的内容
  GridRefresh
End SubPrivate Sub GridRefresh()
  If ComboFlag.ListIndex > 0 Then
    SchCnd = " AND l.Status='" + Trim(ComboFlag.Text) + "'"
  Else
    SchCnd = ""
  End If
   '设置ADO控件的连接字符串
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
          + App.Path + "\Books.mdb;Persist Security Info=False" '刷新DataGrid记录
  '设置数据源
  Adodc1.RecordSource = "SELECT l.BookNo AS 图书编号,i.BookName AS 图书名称, " _
        + "l.BCount AS 借阅数量,b.BorrowNo AS 借阅编号,b.CardNo AS 借阅证编号,c.Name AS 姓名," _
        + "BorrowDate AS 借阅日期 " _
        + " FROM Borrow b,BorrowList l,Cards c,BookInfo i " _
        + " WHERE l.BNo=b.BorrowNo AND b.CardNo=c.CardNo AND l.BookNo =i.BookNo" + SchCnd _
        + " ORDER BY l.BookNo,b.BorrowDate DESC"
'  MsgBox (Adodc1.RecordSource)
  Adodc1.Refresh
  DataGrid1.Columns(0).Width = 1200
  DataGrid1.Columns(1).Width = 1600
  DataGrid1.Columns(2).Width = 1200
  DataGrid1.Columns(3).Width = 1400
  DataGrid1.Columns(4).Width = 1400
  DataGrid1.Columns(5).Width = 1200
  DataGrid1.Columns(6).Width = 1400
End Sub