Visual Basic - Llamar a un procedimiento

Saludos

Que tal quiero saber como le puedo hacer para llamar un procediemiento, ya qye como lo estoy hacinedo me manda el siguiente error: [Microsoft][ODBC SQL Server Driver][SQL Server] Invalid object name 'Nombre de mi procedimiento'.

Y esta es la rutina que estoy utilizando:

Private Sub cmdProcedimiento_Click()
Dim Conn As Connection
Dim Cmd As Command
Dim rst As Recordset

Set Conn = New Connection
Set Cmd = New Command
Conn.ConnectionString = "data source=controlador;initial catalog=Empresa;user id=sa;password=;"
Conn.Open
Set Cmd.ActiveConnection = Conn
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = "Empleados" 'Manda llamar al procedimiento
Set rst = Cmd.Execute 'Aqui es donde me manda el error
While Not rst.EOF
List1.AddItem rst!Apellido
rst.MoveNext
Wend
End Sub

Ojala me puedan echar la mano.

Es mejor que lo definas como una funcion, porque ese procedimiento (con evento click) es para un objeto.

EJ:

Function cmdProcedimiento()
...
...
...
End Function

mira lo que te falta es el provider en el conection string
Conn.ConnectionString = "data source=controlador;initial catalog=Empresa;user id=sa;password=;"
Conn.ConnectionString = "provider=sqloledb;data source=controlador;initial catalog=Empresa;user id=sa;password=;"