Buka Database di ASP

<%
'-----------------------------------------------
'----
'---- Buka Database di ASP
'----
'---- CopyRight(c)2003, Armansyah
'----
'-----------------------------------------------

Dim Koneksi
Dim RsBukaDb
Dim SQLBukaDb
Dim DaftarUser

Set Koneksi = Server.CreateObject("ADODB.Connection")
Koneksi.Open "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=hebat;DBQ=" & Server.MapPath("karyawan.mdb")
Set RsBukaDb = Server.CreateObject("ADODB.Recordset")
SQLBukaDb = "Select * from karya Order By namowong Asc"

RsBukaDb.Open SQLBukaDb, Koneksi, adOpenStatic
%>