ADO.NET :: Closing Sql Connection Properly And Handle Errors?

This morning I found myself dealing with A SQL POOLING ERROR Timeout expired. The timeout period elapsed prior to obtaining a connection from the pool. This may have occurred because all pooled connections were in use and max pool size was reached. I did fix this with resetting my pooling and setting a pooling max =100 Anyway now Im starting to rethink how I open connections, dealing with errors and proper closing of connections Would you say this code below is a good way of opening, closing connections (even when errors occurred)

Dim Connection As SqlConnection
Dim myConn As String = (ConfigurationManager.ConnectionStrings("MyConnString").ConnectionString)
Connection = New SqlConnection(myConn)
Try
Dim DBCommand As SqlCommand
Dim dt As New DataTable()
Dim myDataSet As New DataSet
Connection.Open()
DBCommand = New SqlCommand("GetAllCategories_", Connection)
DBCommand.CommandType = CommandType.StoredProcedure
DBCommand.Parameters.Add("@HomePageID", SqlDbType.Int).Value = HiddenChosenVirtualMainID.Value
Dim mySqlAdapter As New SqlDataAdapter(DBCommand)
mySqlAdapter.Fill(dt)
SecondLevelChildDatalist.DataSource = dt
SecondLevelChildDatalist.DataBind()
Catch ex As Exception
'Error goes here
SqlConnection.ClearAllPools()
Finally
'close the connction
Connection.Close()
Connection.Dispose()
End Try