Visual Basic

Dim con As New ADODB.Connection
    Dim rs1 As New ADODB.Recordset
    Dim rs As New ADODB.Recordset
    Dim MonthSql
    Dim mon1 As String
    Dim month1 As String
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\FBMDetails.mdb;Persist Security Info=False"
    MonthSql = "select dob,md from fdetails"
    mon1 = InputBox("enter month", "month")
    Set rs = con.Execute(MonthSql)
    rs.MoveFirst
    While Not rs.EOF
        month1 = Month(rs.Fields("dob"))
        drMwr.Sections(1).Controls(5).Caption = mon
       If month1 = mon1 Then
          Dim monthsql1
          monthsql1 = "select name,dob,md,phone,email from fdetails where month1 =  ' " + mon1 + "'  "
          MsgBox (monthsql1)
          rs1.Open monthsql1, con
           Set rs1 = con.Execute(monthsql1)
          Set drMwr.DataSource = rs1
           drMwr.Show
       End If
     rs.MoveNext
    Wend