01.
Dim
objConn
As
System.Data.OleDb.OleDbConnection
02.
Dim
objCmd
As
System.Data.OleDb.OleDbCommand
03.
Dim
strConnString,strSQL
As
String
04.
Dim
myScalar
As
Object
05.
06.
strConnString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
&Server.MapPath(
"database/mydatabase.mdb"
)&
";Jet OLEDB:Database Password=;"
07.
objConn =
New
System.Data.OleDb.OleDbConnection(strConnString)
08.
objConn.Open()
09.
10.
strSQL =
"SELECT MAX(Used) FROM customer"
11.
12.
objCmd =
New
System.Data.OleDb.OleDbCommand()
13.
With
objCmd
14.
.Connection = objConn
15.
.CommandType = CommandType.Text
16.
.CommandText = strSQL
17.
End
With
18.
19.
myScalar = objCmd.ExecuteScalar
20.
21.
objCmd =
Nothing
22.
objConn.Close()
23.
objConn.Close()
24.
objConn =
Nothing