Consulta vb SQL de múltiples condiciones

Por ejemplo, implemente la siguiente consulta de múltiples condiciones:

Private Sub Command1_Click() Dim jsql jsql = ""

Dim smyregion As String If Check1. Valor = 1 Entonces

jsql = "Nombre del libro como '%" + Texto1.Text + "%'" Fin si

Si Check2.Value = 1 Entonces Si jsql = "" Entonces

jsql = "Nombre del autor como'%" + Texto2.Text + "%'" Else

jsql = jsql & "y Nombre del autor como'%" + Texto2.Text + " %'" End If End If

If Check3.Value = 1 Then If jsql = "" Then

jsql = "Nombre de publicación como'%" + Text3.Text + " %'" Else

jsql = jsql & "y nombre del editor como '%" + Text3.Text + "%'" End If End If

If Check4.Value = 1 Entonces si jsql = "" Entonces

jsql = "Tiempo de publicación como '%" + Text4.Text + "%'" De lo contrario

jsql = jsql & "y Tiempo de publicación como ' %" + Text3.Text + "%'" End If End If

If Check5.Value = 1 Then If jsql = "" Then

jsql = "Categoría de libro como '% " + Text5.Text + "%'"

Else

jsql = jsql & "y categoría de libro como '%" + Text5.Text + "%'" End If End If

Si jsql = "" Entonces

MsgBox "¡Seleccione las condiciones de consulta!", vbInformation, "Sistema de gestión de audio y vídeo de libros" Salir Sub Else

Adodc1.RecordSource = "seleccione * del libro donde " & jsql Adodc1.Refresh End If

Si Adodc1.Recordset.RecordCount > 0 Entonces establezca DataGrid1.DataSource = Adodc1 End If End Sub

Privado Sub Command2_Click() Descargarme End Sub