Jay,

Thanks for the reponse.  I problem is that I am trying to show the msgbox
only once on a vba form.   I am trapping the error in the listbox enter event
and then trying to get the focus back to the previous listbox ...   I use
both these vba statements in my logic :

  ListBox2.SetFocus
  Exit Sub

Yet in the debugger the code cycles through twice before the focus is
returned back to the vba form with the focus on listbox2.

The code I am using is as follows:

Private Sub ListBox3_Enter()
'sub procedure to connect to a SQL server, run a Stored Procedure then
output the value to a table in the document.
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command

'Dim casestatus As String
'Dim csstatuslst() As String

'Dim j As Integer
'Dim x As Integer

Dim strsql As String

casestatus = ""

'create a new connetion object
Set cn = New ADODB.Connection
'cn.Open "Provider=SQLOLEDB.1;Password=spunk;Persist Security Info=True;User
ID=joncohen;Initial Catalog=mms;Data Source=\test001"
'cn.Open "Provider=SQLOLEDB.1;Password=spunk;Persist Security Info=True;User
ID=joncohen;Initial Catalog=mms;Data Source=\sql2005"
cn.Open "Provider=SQLOLEDB.1;Password=andrew;Persist Security
Info=True;User ID=cindy;Initial Catalog=mms;Data Source=HCPSQL"

'create a command and Recordset
'Set cmd = New ADODB.Command
Set rs = New ADODB.Recordset
'configure the command object

ListBox3.Clear
ListBox4.Clear
ListBox4.Height = 16
ListBox5.Clear
ListBox5.Height = 16

casestatus = getcsstatuslst(casestatus)

If casestatus = "" Then

   MsgBox "You have not selected the case type!", 16, "Error Message"
   
   '  Response = InputErrorMsg()
  ListBox2.SetFocus
  Exit Sub
 
End If

If ComboBox1.Value <> vbNullString And casestatus <> vbNullString Then

      strsql = " select distinct case_type = UPPER(" & _
               " case " & _
               " when casetype = 0 then 'Asbestos' " & _
               " when casetype = 1 then 'Workers Compensation'" & _
               " when casetype = 2 then 'Silicosis'" & _
               " when casetype = 3 then 'Toxic'" & _
               " end)" & _
               " from cases cs left join court ct (NOLOCK) on cs.court =
ct.code" & _
               " where ct.state = " & "'" & ComboBox1.Value & "' and
cs.casestatus in (" & _
               casestatus & ")" & " Order by case_type"
               
 With rs
   Set .ActiveConnection = cn
       .CursorType = adOpenForwardOnly
       .LockType = adLockReadOnly
       .Open strsql
     
 End With

 Dim strCombo
 strCombo = ""

'rs.Open cmd
 rs.MoveFirst
 
 ListBox3.AddItem ("All")
 Do While Not rs.EOF
    ListBox3.AddItem (rs(0).Value)
    rs.MoveNext
 Loop
 
 If ListBox3.ListCount = 2 Then
    ListBox3.RemoveItem (0)
    ListBox3.Height = 16
 Else
    ListBox3.Height = 40
 End If
 rs.Close
 cn.Close
End If

Set rs = Nothing
Set cmd = Nothing
Set cn = Nothing

End Sub

Jay,

See my previous post ... thanks.