восстановление соединения (VB6 & ADO 2.8 & MySQL 5.1

[evgm00]

Привет всем!
Как восстановить соединение с сервером?

CN.open 'статус adStateOpen

тут останавливаем сервер

On Error Resume Next

RS.Open 'ошибка - [MySQL][ODBC 3.51 Driver][mysqld-5.1.14-beta-community-nt]Lost connection to MySQL server during query

запускаем сервер

If Err.number <> 0 Then
CN.Close 'статус adStateСlosed
CN.Errors.Clear
CN.Open 'статус adStateOpen
end if

RS.Open 'ошибка - [MySQL][ODBC 3.51 Driver][mysqld-5.1.14-beta-community-nt]MySQL server has gone away

Что не так??? Как правильно восстановить соединение???
Заранее спасибо.