Set adoCon = CreateObject("ADODB.Connection")
with adoCon
.connectionTimeout = 2000
.open "Provider=providername;Server=servername;Database=DBname;UID=userid;PWD=password;"
end with

Set recset = CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM CUSTOMERS WHERE REGDATE<'" & DateAdd("d",-4,Date())&"'" 
recset.open strSQL, adocon, 1
int n=0

dim ROLE()
dim NAME()
dim count
count=0
if recset.RecordCount>0 then

ReDim ROLE(CInt(recset.RecordCount))
ReDim NAME(CInt(recset.RecordCount))
while not recset.EOF

NAME(count)=recset("NAME")
ROLE(count)=recset("ROLE")
count=count+1
recset.MoveNext
wend
end if
strEmail = "NAME ROLE"&vbCr
for i=0 to count-1

strEmail = strEmail &" "&NAME(i)&" "&ROLE(i)&vbCr

next

Set Mailer = CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "administrator/UR name "
Mailer.FromAddress = "Mail-ID"
Mailer.RemoteHost = "localhost"
Mailer.AddRecipient "abc@gmail.com" 
Mailer.Subject = "5days back registerd persons details"
Mailer.BodyText = strEmail
Mailer.ContentType = "text/html"
Mailer.SendMail 
Set Mailer = nothing




'CloseConnections
on error resume next
recset.close	
set recset = nothing

adoCon.close	
set adoCon = nothing