VB Code:
  1. If CNN.State <> 0 Then
  2. Set rsshow = CNN.Execute("select * from status")
  3.     Do While Not rsshow.EOF
  4.     txtChat = rsshow(1)
  5.     Loop
  6.         CNN.Close
  7.     End If