help req

[akhwand usman]

Im using vb6 with msaccess 2002

not executing the select statement

following is the code creating prolem.

Dim myCon As New ADODB.Connection
Dim myRec As New ADODB.Recordset
 
Private Sub Command1_Click()
 
  clndrStrt.Refresh
  cldrEnd.Refresh
 
  If clndrStrt.Day = 0 Or cldrEnd.Day = 0 Then
    MsgBox "Select Day"
  Else
 
    If lstClient.Text = "" Then
      MsgBox "Select Client Name or Enter New Client"
    Else
 
      If cmboFrmName.Text = "" Then
 
        MsgBox "Select Firm"
 
      Else
 
 
        StartDate = Form1.clndrStrt.Day & "/" & Form1.clndrStrt.Month & "/" & Form1.clndrStrt.Year
 
        EndDate = Form1.cldrEnd.Day & "/" & Form1.cldrEnd.Month & "/" & Form1.cldrEnd.Year
 
        myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DbAudit.mdb;Persist Security Info=False"
 
        Set myRec = myCon.Execute("INSERT into client_l (ClientName, periodStrt, periodEnd, firm) VALUES ('" & txtName.Text & "','" & StartDate & "','" & EndDate & "','" & cmboFrmName.Text & "')")
 
 
        Form1.Hide
        Form2.Show
 
      End If
    End If
  End If
 
End Sub
 
Private Sub Command2_Click()
  clndrStrt.Refresh
  StartDate = Form1.clndrStrt.Day & "/" & Form1.clndrStrt.Month & "/" & Form1.clndrStrt.Year
  MsgBox StartDate
End Sub
 
Private Sub Command3_Click()
  EndDate = Form1.cldrEnd.Day & "/" & Form1.cldrEnd.Month & "/" & Form1.cldrEnd.Year
  MsgBox StartDate
End Sub
 
Private Sub Ext_Click()
  End
End Sub
 
Private Sub Form_Load()
 
  'DataBase connection
  myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Audit Project\DbAudit.mdb;Persist Security Info=False"
 
 
  Set myRec = myCon.Execute("SELECT * FROM CLIENT_L")
 
  msgbox myRec.RecordCount
 
 
  'cmboFrmName.AddItem "---------------------------"
  cmboFrmName.AddItem "ABC"
  cmboFrmName.AddItem "DEF"
 
End Sub

[Killer42]

"Not executing" is a bit vague. Can you give us a clearer idea of what your problem is? And what you've tried to do about it?

[akhwand usman]

thanks my problem is solved.

[Killer42]

Ok, thanks for letting us know.