Opening ms-access within VB 2013

I am used to opening my Access Database from VB 6 using the following.

Private Sub Form_Load()

    Set MyWs = DBEngine.Workspaces(0)
    Set MyDb = MyWs.OpenDatabase(DbPath)
    Set MyDebt = MyDb.OpenRecordset("DEBTORS", dbOpenTable)

    datClient.DatabaseName = DbPath
    datClient.RecordSource = "SELECT * FROM DEBTORS ORDER BY NAME"
    datClient.Refresh
    strCallNo = MyParm("CALLNO")
    txtCall = Format(Date, "MMM") + Str(strCallNo)
End Sub

I am now learning VB 2013 and am not sure how to do this.

Pls Help

Regards

Navin



Navin