Acelerar consulta y actualizacion

[arielenter]

Hola, tengo una bd con 7.000 Registros siempre va a ser la misma cantidad.

Esta es la base de datos. (captura de pantalla abajo).


Mi Problema es que tengo esta consulta y si lo hago en mi pc lo hace rapido menos de 1 segundo, cuando paso a la pc del cliente ya lleva como 2 0 3 segundo, se que su pc es mas lento que el mio se que por ahi van las cosas.

Código VB6:

Sub BUSCAR_NUMERO_CANTADO(ByVal xNumeroCarton As String)
 
    ComandoSQL = "UPDATE bingo75 SET aciertos=aciertos+1"
    ComandoSQL = ComandoSQL & " WHERE matriz LIKE '%" & xNumeroCarton & "%' AND habilitado = 'SI'"
    cnADO.Execute ComandoSQL
        
End Sub
 

Código VB6:

Private Sub cmdNumero_Click(Index As Integer)
    Call BUSCAR_NUMERO_CANTADO(cmdNumero(Index).Caption)
End Sub
 

Ahora he divido el campo matriz por columnas asi: (captura de pantalla abajo)


Lo que hago es dividir las columnas al hacer esto hay menos datos que buscar por COLUMNA pero siempre va a ser 7.000 registros esto acelera en en algo?.

Código VB6:

Private Sub cmdBolilla_Click(Index As Integer)
    
    Dim xValor As Integer
    xValor = Val(cmdBolilla(cmdBolilla(Index).Index).Caption)
        
    If xValor = 1 Or xValor <= 15 Then
        Call BUSCAR_NUMERO_CANTADO(cmdBolilla(Index).Caption, "lb")
    ElseIf xValor = 16 Or xValor <= 30 Then
        Call BUSCAR_NUMERO_CANTADO(cmdBolilla(Index).Caption, "li")
    ElseIf xValor = 31 Or xValor <= 45 Then
        Call BUSCAR_NUMERO_CANTADO(cmdBolilla(Index).Caption, "ln")
    ElseIf xValor = 46 Or xValor <= 60 Then
        Call BUSCAR_NUMERO_CANTADO(cmdBolilla(Index).Caption, "lg")
    ElseIf xValor = 61 Or xValor <= 75 Then
        Call BUSCAR_NUMERO_CANTADO(cmdBolilla(Index).Caption, "lo")
    End If
    
End Sub
 

Código VB6:

Sub BUSCAR_NUMERO_CANTADO(ByVal xNumeroCarton As String, xLineas As String)
    
    ComandoSQL = "UPDATE bingo75 SET aciertos=aciertos+1"
    ComandoSQL = ComandoSQL & " WHERE " & xLineas & " LIKE '%" & xNumeroCarton & "%' AND estado='SI'"
    cnADO.Execute ComandoSQL
    
End Sub