Duda de Insert &/o Update desde VB 6.0 a Mysql

[LuZbA]

Hola de nuevo que tengan muy buen día...

mi duda es la siguiente

al entrar a mi aplicación yo inserto en mi tabla de mysql los siguientes datos:

DB.Execute "INSERT INTO bitacora (Nick, Fecha, TotActiv, HrEntrada, HrSalida, _
TActivo, TMuerto) VALUES ('" & txtUsuario.Text & "', '" & fech & "', '', '', '', '', '')"

los únicos datos hasta el momento que tengo son esos dos...

en otra parte de la aplicación abro un registro de la siguiente manera:

Set RecSQL = New ADODB.Recordset ' abrir registro de busqueda de clave de bitacora
RecSQL.Open "SELECT CBita FROM bitacora WHERE (bitacora.Nick LIKE '" & lbUsuario.Caption & "') AND (bitacora.Fecha LIKE '" & fecha & "')", DB, adOpenStatic, adLockOptimistic

While Not RecSQL.EOF 'almacenar en variable clave de bitacora
sel6 = (RecSQL.Fields(0))
RecSQL.MoveNext
Wend


sel6 me lo muestra vacío... según yo es por que no me seleccionaba nada y si... pero lo que pasa es que en la tabla ese dato aun no está actualizado... creo...

que puedo incluirle al insertar los datos q me refresque la tabla o que errores ven ustedes que me ayude a salir de este chasco... les agradezco...

saludos...

p.d. cabe aclarar que lbUsuario.Caption y fecha si estan con los datos correctos, si los toma...