Function SearchData(DatabaseName, DatabaseRecord, SearchStr, StateStr,ColumnKeyword, ColumnState)
Set dbset = server.CreateObject ("ADODB.Connection")
dbset.Provider = "Microsoft.Jet.OLEDB.4.0"
dbset.ConnectionString = "Data Source=" & server.MapPath (DatabaseName) & ";Jet OLEDB:Database Password=;"
dbset.Open
set database = server.CreateObject ("ADODB.RecordSet")
database.Open "Select * from " & DatabaseRecord ,dbset,1,3
Dim CKey, CState
do while not database.EOF
Ckey = database(ColumnKeyword)
CState = database(ColumnState)
' Jika mau keluar result yang meet criteria kedua duanya.. guna "and"
if instr(1,CKey,SearchStr) <> 0 and instr(1,CState,StateStr) <> 0 then
' Jika mau keluar result dalam kedua duanya.. guna "or"
' if instr(1,CKey,SearchStr) <> 0 or instr(1,CState,StateStr) <> 0 then
' reponse.write database(...) 'Description about the job or result description
' The result code goes here.
end if
database.MoveNext ' Movenext
loop
set database= nothing
set dbset = nothing
End Function

Call SearchData(databasename, databaserecord, "IT", "Johor", ColumnKeyword, ColumnState)