Dim strbuscar As String
Dim bd As ADODB.Connection
Dim rg As ADODB.Recordset <------------- aqui tienes un error
Set bd = New ADODB.Connection
Set rEg = New ADODB.Recordset <--------------...