<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-7">
<META content="MSHTML 6.00.2800.1170" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Hi all,</FONT></DIV>
<DIV><FONT face=Arial size=2>I need some help please with an error 
message</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>when I try to enter a new record into... I get the 
follown error</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial color=#ff0000 size=2><STRONG>Compile 
error</STRONG></FONT></DIV>
<DIV><FONT face=Arial color=#ff0000 size=2><STRONG>variable not 
defined</STRONG></FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>the code:</FONT></DIV>
<DIV><FONT face=Arial size=2>Private Sub idpoli_NotInList(NewData As String, 
Response As Integer)<BR>    Dim strMsg As 
String<BR>    strMsg = "'" & NewData & "' bla 
bla"<BR>    strMsg = strMsg & "@bla 
bla;"<BR>    strMsg = strMsg & "@bla 
bla."<BR>    If MsgBox(strMsg, vbQuestion + vbYesNo, "new data") 
= vbNo Then<BR>        Response = 
acDataErrContinue<BR>    Else<BR><FONT 
color=#ff0000><STRONG>        Set db = 
CurrentDb<BR></STRONG></FONT>        Set rs = 
db.OpenRecordset("T_poli", 
dbOpenDynaset)<BR>        On Error Resume 
Next<BR>        
rs.AddNew<BR>            
rs!poli = NewData<BR>        
rs.Update<BR>        
<BR>        If Err 
Then<BR>            
MsgBox "bla 
bla."<BR>            
Response = acDataErrContinue<BR>        
Else<BR>            
Response = acDataErrAdded<BR>        End 
If<BR>    End If</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>End Sub<BR></FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Thank's a lot</FONT></DIV>
<DIV><FONT face=Arial size=2>Kostas Konstantinidis</DIV></FONT></BODY></HTML>