Visual Basic

Try
         iconn.Open()
         boolReturn = True
     Catch ex As OleDb.OleDbException
         boolReturn = False
     Catch ex As SqlClient.SqlException
         boolReturn = False
     Catch ex As Odbc.OdbcException
         boolReturn = False
     Catch ex As Exception
         boolReturn = False
     Finally
         'Always close connection
         If iconn.State = ConnectionState.Open Then
             iconn.Close()
         End If
     End Try

Try
	_conn.ConnectionString = ReconfigConnString() </Code>‘Function that returns a complete connection string<Code>
	_conn.open  </Code>‘<---- Here the system will stay until time out.<Code>
Catch ex as Exception
	</Code>‘Do error handeling<Code>
Finally
	_conn.close
End Try

Private Function Search(ByVal _Listbox As ListBox, ByVal SearchText As String)
    Dim i As Integer</code>
    ' Loop thru all the items
    <code>For i = 0 To _Listbox.Items.Count - 1</code>
        ' Use the basic string contains function and compare the two strings
        <code>If _Listbox.Items.Item(i).ToString().Contains(SearchText) Then</code>
            'in the if statement u can have multible out puts
            ' _ArrayList.Add(_Listbox.Items.Item(i).ToString())
            'TIP: Remenber to check for duplicates at this stage.
            <code>Return _Listbox.Items.Item(i).ToString()
        End If
    Next</code>
    ' Return _ArrayList
   <code> Return Nothing
End Function