Buscar Vb6

Private Sub Check1_Click()
If Check1.Value = 1 Then
txtRazon.Enabled = True
txtRazon.BackColor = &H80000005
txtRazon.SetFocus
Else
txtRazon.Enabled = FalsetxtRazon.BackColor = &H8000000F
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
txtDomicilio.Enabled = True
txtDomicilio.BackColor = &H80000005txtDomicilio.SetFocus
Else
txtDomicilio.Enabled = False
txtDomicilio.BackColor = &H8000000F
End If
End Sub

Private Sub Check4_Click()
If Check4.Value = 1 Then
txtLocalidad.Enabled = TruetxtLocalidad.BackColor = &H80000005
txtLocalidad.SetFocus
Else
txtLocalidad.Enabled = False
txtLocalidad.BackColor = &H8000000F
End If
End Sub

Private SubCheck5_Click()
If Check5.Value = 1 Then
txtProvincia.Enabled = True
txtProvincia.BackColor = &H80000005
txtProvincia.SetFocus
Else
txtProvincia.Enabled = FalsetxtProvincia.BackColor = &H8000000F
End If
End Sub

Private Sub Check6_Click()
If Check6.Value = 1 Then
txtCUIT.Enabled = True
txtCUIT.BackColor = &H80000005
txtCUIT.SetFocusElse
txtCUIT.Enabled = False
txtCUIT.BackColor = &H8000000F
End If
End Sub

Private Sub DBGrid1_DblClick()
Mostrar
End Sub

Private Sub Form_Activate()
If Busco.Value = 1 ThenBuscar
Else
Toolbar1.Buttons.Item(3).Enabled = False
frmBuscar.Height = 5340
End If
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select CaseButton.Key
Case "cmdIniciar"
Buscar
Case "cmdMostrar"
Mostrar
Case "cmdCerrar"
Unload Me
End Select
End Sub

Private Sub Buscar()
If Check1.Value = 1 ThenIf txtRazon.Text = "" Then
MsgBox "No ingresó ningún dato en la casilla de Razón Social"
Busco.Value = 0
Exit Sub
End If
Text1.Text...