Barra de progresso

Boa tarde!

Será que eu conseguiria adptar essa barra de prograsso para o código abaixo?

Lembrando que eu não tenho nehuma tabela no meu access, tenho apenas leituras acontecendo no SQL server 2008.

Segue código:

Private Sub Form_Load()

Dim cns As New ADODB.Connection
Dim rss As New ADODB.Recordset
Dim rs_cliente As ADODB.Recordset
Dim sqls As String

cns.Provider = "SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=true;Data Source=11.111.161.29;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=DEBRBRG310F27X;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=baseteste"
cns.Open

MsgBox "Aguarde Enquanto os Dados são Carregados..."

Set rss = New ADODB.Recordset
Set rss.ActiveConnection = cns

'sqls = "select * from cliente"
sqls = "SELECT cod_clien, canis, orend, sei, de_cliente, pa_cliente, uf_clien, cidade_clien, teste FROM cliente order by cod_clien, desc_clien"

rss.CursorLocation = adUseClient
rss.Open sqls, cns, adOpenForwardOnly, adLockPessimistic 'adLockPessimistic (Permitir alteração)
Set rs_cliente = rss
Set rss = Nothing
Set cns = Nothing
Set Me.Recordset = rs_cliente

End Sub


Muito obrigado.

Boa noite,
A sala de repositórios não é para tirar dúvidas.