Hola expertos! Necesito buscar sin importar mayúsculas o minúsculas

hola!!

1-- tengo el siguiente código para un buscador y necesito que me busque sin importar si es mayúscula o minúscula... Como lo tengo solo busca mayúscula.. La idea no es usar Ucase o lcase porque la tabla donde busca tiene 15000 art y se actualiza automático de otro programa donde ya viene de esa forma..

si alguien tiene alguna idea

2-- de ser posible me gustaría que al volver a abrirlo me guarde la ultima búsqueda..(al hacer doble clic en una celda abre el buscador, luego copia el seleccionado junto con el código) pero no es influyente)

desde ya muchas gracias..

código es :

Private Sub CommandButton3_Click()
Dim path As String
path = ActiveWorkbook.path & "\NOTA DE VENTA.xlsm"
TextBox1.Text = UCase(TextBox1.Text)
Dim db As Database
Dim rs As DAO.Recordset
' Abro la hoja de cálculo
Set db = OpenDatabase(path, False, False, "Excel 8.0;HDR=Yes;")
' Dependiendo de la opción seleccionada, abrimos el rango correspondiente
'Set rs = db.OpenRecordset("SELECT * FROM [WorkSheet1$]", dbOpenDynaset)
'Set rs = db.OpenRecordset("SELECT * FROM Tabla1", dbOpenDynaset)
Set rs = db.OpenRecordset("SELECT * FROM [Artículos$A1:G25001] where desart like '*" & TextBox1.Text & "*' ", dbOpenDynaset)
ListBox1.Clear
Do While Not rs.EOF
ListBox1.AddItem rs.Fields(0) & " - " & rs.Fields(1)
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing