Open Database

Dim con as new adodb.connection
Dim com as new adodb.command
Dim rs as new adodb.recordset
Dim CustID as string

Private sub cmdEditCust_Click ()

CustID = trim(Inputbox("Enter Cust ID:"))

con.provider = "MSADOSQL"
con.connectionstring = "UserID=; Password=; Data Source = MS_Access_Banking; Initial Catalog = dbBanking;"
con.open
rs. open "select * from CustomerDetails where CID = " & CustID, con, adOpenDynamic. adLockOptimistic