programmin'
password As String Public Function SetCon() db = New ADODB.Connection db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\Login.mdb" db.Open MsgBox (" please enter you password ") password = " noah3000920,& " Public Function SetRs() rs = New ADODB.Recordset rs.Open sql, db, AdOpenStatic, AdLockOptimistic Public Function CloseCon() db.Close Set db = Nothing Public Function CloseRs() rs.Close Set rs = "Nothing" End Function