Module
Module1
Public
conec
As
New
OleDb
.
OleDbConnection
(
"
Provider
=
Microsoft
.
Jet
.
OLEDB
.
4
.
0
;
Data
Source
=
|
DataDirectory
|
\
Sagastume_Jose_Colegio
.
mdb
"
)
Public
accion
As
New
____________________
.
____________________
Public
dr
As
New
____________________
.
____________________
Public
sql
As
String
=
"
"
Public
Sub
conectarse
(
)
____________________
____________________
.
____________________
(
)
MsgBox
(
"
____________________
____________________
"
)
____________________
____________________
____________________
____________________
MsgBox
(
"
No
conectó
"
)
MsgBox
(
____________________
.
____________________
)
End
Try
End
Su
b