Trying to get the code to run behind a command button

  • Thread starter Thread starter Ken
  • Start date Start date
K

Ken

I am trying to execute code when a command button is clicked on a
custom form that I am using within Outlook 2000, but the code doesnt
seem to be working I have put a msgbox command in the code and it does
nothing. Is my procedure named wrong or do I have to do another step
? I'm New at this so any help is appreciated.
The code is meant to update an access database with information from
the form on the read page.

Thanks in advance.

Ken

Command button name:cmdUpdateDatabase

Code:
Private Sub cmdUpdateDatabase_Click()
Set dbe = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
strPath = "J:\XXXXX\Job Database.mdb"
strJob = Item.UserProperties.Find("Job Name").Value
msgBox strJob
dbe.Mode = 3
dbe.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=strPath;"
strSQL = "INSERT INTO tblJobLoad (Jobname) VALUES (" & strJob & ");"
rs.Open strSQL,dbe,2,3
dbe.Close
rs.Close

End Sub
 
Back
Top