Visual Basic - que me falla en este codigo?

saludos.
no se que hacer, estoy desesperado con esto. tengo un formulario para añadir datos a una tabla de una database usando el procedimiento ADODB.connection. el formulario tiene un combobox que posee informacion de acuerdo a una consulta sql que se hizo, hasta ahí todo bien. hay tres textbox que serán los campos dentro de la tabla a agregar o modificar los datos y boton comando que al darle click me debe actualizar la tabla: el codigo es este:
Private Sub Command1_Click()
Dim rsnueva As ADODB.Recordset
Set rsnueva = New ADODB.Recordset
idnueva = 0
If idnueva = 0 Then
strSQL = "Insert Into Cancion" & _
" (Nombre, Año, Duracion )" & _
" Values('" & Text1.Text & "', '" & Text2.Text & "', '" & Text3.Text & "' )"
Texto = "Nueva ingresada con éxito"
Else
strSQL = "Update Cancion" & _
" Set Nombre=" & Text1.Text & "'" & _
", Año=" & Text2.Text & "'" & _
", Duracion=" & Text3.Text & "'" & _
" Where [Id Cancion]=" & idnueva
End If
rsnueva.Open strSQL, cnMusiteca
Set rsnueva = Nothing
MsgBox Texto, , "Actualizando Cancion"
End Sub

y me saca error e esta linea: rsnueva.Open strSQL, cnMusiteca que pasa?
me dice que falta operador y me señala como punto de error la conexion cnMusiteca.
espero me ayuden

Prueba a cambiar "rsnueva.Open strSQL, cnMusiteca" por rsnueva.execute strSQL,

me dice que es una funcion no valida.
que mas puedo intentar?

En este pedazo de codigo del update te falta la comilla simple ( ' ):

strSQL = "Update Cancion" & _

aqui en el nombre despues del igual falta la comilla simple:

" Set Nombre=" & Text1.Text & "'" & _

aqui en el añe despues del igual falta la comilla simple:

", Año=" & Text2.Text & "'" & _

aqui en duracion despues del igual falta la comilla simple:

", Duracion=" & Text3.Text & "'" & _

aqui en [Id Cancion] despues del igual falta la comilla simple y al final tienes que cerrarlo ( & "'" ) te falto:
" Where [Id Cancion]=" & idnueva

si tienes alguna duda me escribes al correo