Sub BSSearchEngine.Create(EditControl, DataSource, [DataHasHeaderRow As Boolean = True], [ShowHeader As Boolean = True]) 

Sub OnAfterUpdate(RowIndex, Values, Text As String) 

Option Explicit 
Private WithEvents SE_DATA As BSSearchEngine 
Private Sub UserForm_Initialize() 
   Set SE_DATA = New BSSearchEngine 
   SE_DATA.Create txtSearch, Range("KHO") 
   SE_DATA.BoundColumn = 12  'Lay cot ROW
   SE_DATA.RowColor1 = RGB(250, 210, 198)  ' or "#FAD2C6" ' Màu dòng lẻ
   SE_DATA.RowColor2 = "#F7B49F"  ' Or RGB(247, 180, 159) ' Màu dòng chẵn
End Sub 

'Sự kiện bắt khi giá trị được nhập - Giá trị lấy từ cột 12 do khai báo BountColumn = 12 

Private Sub SE_DATA_OnAfterUpdate(RowIndex As Variant, Values As Variant, ByVal Text As String) 
   If Text <> "" Then 
      If IsNumeric(Text) Then 
         LoatDuLieu Text  'Tai phieu tu sheet "KHO"
      End If 
   End If 
End Sub 

Private cnn As ADODB.Connection 
Private rst As ADODB.Recordset 
Private SE_DMHH As BSSearchEngine 
Private Sub UserForm_Initialize() 
   Dim ExcelFile As String 
   ExcelFile = ThisWorkbook.FullName 
'Setup Recordset - DataSource:
   Set cnn = New ADODB.Connection 
   cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ExcelFile & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1""" 
   cnn.Open 
   'Set rst = cnn.Execute("SELECT * FROM DMHH") 'CAUTION: DO NOT USE THIS!
   'Set rst.ActiveConnection = cnn
   Set rst = New ADODB.Recordset 
   'rst.CursorLocation = adUseClient
   rst.Open "SELECT * FROM DMHH", cnn, adOpenStatic  'fine!
   '----------------------------
'Setup Search Engine:
   Set SE_DMHH = New BSSearchEngine 
   SE_DMHH.Create TextBox1, rst 
   '--------------------
End Sub 
'Free memory when close Userform
Private Sub UserForm_Terminate() 
   If Not rst Is Nothing Then 
      rst.Close 
   End If 
   If Not cnn Is Nothing Then 
      cnn.Close 
   End If 
   Set rst = Nothing 
   Set cnn = Nothing 
End Sub 

rst.Open "SELECT * FROM DMHH", cnn, adOpenStatic