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 abrir la conexión con el .udl de la base de datos (abrir el cnMusiteca). Ahí va algo que quizás te ayude a hacerlo:

Public Sub PRCgAbrirConexion(ByRef cnn As ADODB.Connection)

On Error GoTo Err_PRCgAbrirConexion

Set cnn = New ADODB.Connection
cnn.Open \"File Name=\" & App.Path & \"\\Tareas.udl\"
Exit Sub

Err_PRCgAbrirConexion:
Err.Raise 9000, Err.Source, Err.Description
End Sub

Espero que te valga de algo......mucha suerte.