Dim ds As New DataSet
    Private Sub FDaily_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'This procedure overrides the first procedure and accepts a single
        'string for the recipient and file attachement
        ds = GetdatafromAccess()
    End Sub
    Private Function GetdatafromAccess() As DataSet
        Dim con As OleDbConnection
        Dim cmd As OleDbCommand
        Dim dr As OleDbDataReader
        Dim sbmail As New StringBuilder
        Try
            con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath() + "\DB\details.mdb" + ";")
con.Open()
            cmd = New OleDbCommand("select * from maildetails where flag=0", con)
            dr = cmd.ExecuteReader
            While dr.Read()
                Try
                    Dim MailMsg As New MailMessage()
MailMsg.Subject = "Test Mail"
 MailMsg.From = New MailAddress("anub96@gmail.com")
                    MailMsg.To.Add(dr("mail_id".ToString))
                    MailMsg.Body = sbmail.ToString '" Hi " & vbCrLf & vbCrLf & vbCrLf & "How are you?" & vbCrLf & vbCrLf & vbCrLf & "regards"
                    MailMsg.Priority = MailPriority.High
                    'MailMsg.IsBodyHtml = False
                    MailMsg.IsBodyHtml = True
Dim MsgAttach As New Attachment(Application.StartupPath() + "\Upload\Sample.xml")
                    MailMsg.Attachments.Add(MsgAttach)
Dim SmtpMail As New SmtpClient("smtp.gmail.com")
                    SmtpMail.Port = 587
                    SmtpMail.Credentials = New System.Net.NetworkCredential("anub96", "capricorn")
                    SmtpMail.EnableSsl = True
                    'SmtpMail.Host = "127.0.0.1"
                    SmtpMail.Send(MailMsg)
                    updateflag(dr("ID"))
                Catch ex As Exception
MsgBox(ex.Message)
                    Me.Close()
                End Try
End While
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            'dr.Close()
            If con.State = ConnectionState.Open Then con.Close()
        End Try
        Me.Close()
        Return ds
    End Function
    Private Function updateflag(ByVal id As String) As Boolean
        Dim cn As OleDbConnection
        Dim cmd As OleDbCommand
        cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath() + "\DB\details.mdb" + ";")
        'provider to be used when working with access database
        Try
            cn.Open()
            cmd = New OleDbCommand("update maildetails set flag=1 where ID=" + id.ToString, cn)
            Dim res As Integer
            res = cmd.ExecuteNonQuery()
            If res > 0 Then
                Return True
            Else
                Return False
            End If
        Catch ex As Exception
        Finally
            ' dr.Close()
            'If cn.State = ConnectionState.Open Then cn.Close()
        End Try
    End Function
End Class