Private Sub AtualizaGrid()
On Error GoTo Erro
    If chkPesq.Value = 1 Then
        SQL = "SELECT Cli_Codigo As [Código], Cli_Nome As [Nome], Cli_endereco as [Endereço] From Clientes " & _
              "WHERE Cli_Nome Like ('*" & Trim(txtPesq) & "*') And Cli_Endereco Like ('*" & Trim(txtPesq2) & "*') " & _
              "ORDER BY Cli_Nome"
    Else
        SQL = "SELECT Cli_Codigo As [Código], Cli_Nome As [Nome], Cli_endereco as [Endereço] From Clientes " & _
              "WHERE Cli_Nome Like ('" & Trim(txtPesq) & "*') And Cli_Endereco Like ('" & Trim(txtPesq2) & "*') " & _
              "ORDER BY Cli_Nome"
    End If
    Set rsGrid = db.OpenRecordset(SQL, dbOpenDynaset)
    Set dtDados.Recordset = rsGrid
    dbgPesq.Columns(0).Locked = True
    Me.dbgPesq.Columns(0).Width = 1600
    Me.dbgPesq.Columns(1).Width = 2400
    Me.dbgPesq.Columns(2).Width = 2400
    SQL = Empty
    'rsGrid.Close
    'Set rsGrid = Nothing
    Exit Sub
Erro:
    MsgBox "Erro numero " & Err.Number & vbCr & Err.Description, vbCritical
End Sub