The Following is giving too few arguments error:
Dim dbs As DAO.Database
Dim rst As DAO.Recordset2
'Get the database, recordset, and attachment field
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("SELECT EMAIL, NM FROM [Tbl_Personal] WHERE [NM]= BE")
strPassword = rst("EMAIL")
17 rst.Close
18 CurrentDb.Close
The table Tbl_Personal has 2 fields NM & EMAIL. BE is a string stored in NM.