Bandera en VB6

[rambo_3]

Hola, estoy haciendo una aplicación donde debo borrar una categoría si la misma no esta siendo utilizada por ningun socio. En caso contrario muestra un mensaje y no lo borra. Borra perfecto, pero no puedo hacer que la bandera "haysocio= 0" se actualice y se ponga en 1 en caso de que un socio tenga esa categoria asociada. Solamente me muestra un solo valor en 1 de 5 categorias que tiene la tabla. Donde tengo el error?. Estoy usando DataControl.

Aqui el codigo:

Private Sub Form_Load()

Dim Path_Base_Dato As String, db As Database
Dim rst, rec As Recordset

Path_Base_Dato = App.Path
Path_Base_Dato = Path_Base_Dato & "\bd1.mdb" 'CONEXION A BASE DE DATOS

'Abre la base de datos
Set db = OpenDatabase(Path_Base_Dato)

'Abre el Recordset
Set rst = db.OpenRecordset( _
"SELECT DescripcionCategoria FROM Categoria ORDER BY DescripcionCategoria", _
dbOpenSnapshot)

Set rec = db.OpenRecordset( _
"SELECT * FROM Socio", _
dbOpenSnapshot)
' Se mueve la primer registro
rst.MoveFirst
Do While Not rst.EOF
'Agrega el Nombre al Combo
ComboCategorias.AddItem rst!DescripcionCategoria

'siguiente registro
rst.MoveNext
Loop

'Cierra el recordset y la base
rst.Close
rec.Close
db.Close

'Se asigna la base de datos al Data1
Data1.DatabaseName = Path_Base_Dato
Data2.DatabaseName = Path_Base_Dato

'Seleccionamos el primer elemento del combo
ComboCategorias.ListIndex = 0

End Sub


Private Sub ComboCategorias_Click()
Dim i, cant As Integer

' Al hacer Click en el elemento del combo _
se selecciona mediante sql el registro _
y la cadena Sql se asigna al Recorsource del _
control data
Data1.RecordSource = _
"SELECT * FROM Categoria WHERE DescripcionCategoria='" & ComboCategorias & "'"

Data2.RecordSource = _
"SELECT * FROM Socio"

'Refresca el control data
Data1.Refresh
Data2.Refresh

haysocio = 0
cat = Text1.Text

If ComboCategorias.Text <> "" Then

cant = Data2.Recordset.RecordCount
Data2.Recordset.MoveFirst

For i = 0 To cant - 1
If Data2.Recordset.Fields("CodigoCategoria") = cat Then
haysocio = 1
Exit For

Else
Data2.Recordset.MoveNext

End If

Next

End If

Text4.Text = haysocio

End Sub



Private Sub Command1_Click()

If ComboCategorias.Text = "" Then
MsgBox "La descripción de categoría no puede estar vacía", vbInformation, "Información al Usuario"
ComboCategorias.SetFocus
Exit Sub
End If


If haysocio <> 1 Then

With Data1.Recordset
'Elimina
If Data1.Recordset.RecordCount = 0 Then Exit Sub
.Delete
'Posiciona en el siguiente
.MoveNext
If Not .EOF Then .MoveLast
End With

MsgBox "Se ha eliminado la categoría seleccionada", vbInformation, "Datos Registrados"
Unload Me

Else
MsgBox "La categoría está siendo utilizada en algún socio", vbInformation, "Datos Registrados"
End If

End Sub