Visual Basic - problemas con recordset

hola a todos, escribo porq tengo un problema, cuando trato de abrir un recordset me dice que no se puede porq no esta abierta la conexion pero yo la abri, que puedo hacer? aqui esta el codigo del procedimiento q estoy usando:

Private Sub Mostrar_Lista(C As Control, SQL As String, parametro_opcion)
Dim conexion As ADODB.Connection
Dim registro As ADODB.Recordset
Dim rs As ADODB.Recordset
Dim s As String
Dim strconexion As String

Set conexion = New ADODB.Connection
strconexion = "Provider=MSDASQL.1;Persist Security Info=False;User ID=postgres;Data Source=PostgreSQL"
conexion.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=postgres;Data Source=PostgreSQL"
conexion.Open strconexion



Set registro = New ADODB.Recordset
registro.LockType = adLockOptimistic
registro.CursorType = adOpenKeyset

registro.Open s

si alguien puede ayudarme de antemano lo agradezco