Hola Chicos... Saben que logre solucionar el problema... despues de leer en varios foros me di cuenta que el error 424 era porque tenia que pasarle en recordset tambien por parametro asi:
Sub CargarDatos(Txt1 As Object, Txt2 As Object, Txt3 As Object, Txt4 As Object, Txt5 As Object,
Rs As ADODB.Recordset)
Txt1.Text = CStr(Rs.Fields("id_departamento").Value)
Txt2.Text = CStr(Rs.Fields("nom_departamento").Value)
Txt3.Text = CStr(Rs.Fields("dir_departamento").Value)
Txt4.Text = CStr(Rs.Fields("descr_departamento").Value)
Txt5.Text = CStr(Rs.Fields("nom_departamento").Value)
End Sub
Muchas gracias a David el grande por correjir mi error de que estaba escribiendo Text1 en vez de Txt1 y a Ginitofl por su codigo de Sub cdmrecorre_Click(Index As Integer)
Saluditos y gracias por su colaboracion
Fiorella