[AccessD] code problem

I am copying and will attribute the following code from KG et al ADH

 

Private Sub cboEmpName_NotInList(newdata As String, Response As Integer)

Dim strMsg As String

Dim rst As Recordset

Dim db As Database

 

 

    strMsg = "'"& NewData &"'" is not in the list. "

    strMsg = strMsg & "Would you like to add them?"

 

Does any one know why the first strMsg line is evaluating to to red ?

 

Thanks 

 

JOE HECHT

LOS ANGELES CA 

jmhla at earthlink.net