la propiedad conection no se establecio

Podríais ayudarme. Creo tener el codigo bien y me da este error al final del
codigo.

Gracias



Dim myConnection As OleDbConnection

Dim myCommand As OleDbCommand

myConnection = New OleDbConnection

myCommand = New OleDbCommand

myConnection.ConnectionString = "Provider=IBMDA400;Data
Source2.17.100.1;User IDÌC;Password=clientacce"

myConnection.Open()

myCommand.CommandText = "UPDATE HTL2000F.HORP2 SET RPTIPR='A', RPDNIE='" &
DNI.Text & "', RPDNIX='" & Pasaporte.Text & _

"', RPTIPD='" & Documento.Text & "', RPFEEX = " &
Format(CDate(FechaExpedicion.Text), "yyyyMMdd") & _

", RPAPE1='" & apellido1.Text & "', RPAPE2='" & apellido2.Text & "',
RPNOMB='" & nombre.Text & _

"', RPSEXO='" & Sexo.Text & "', RPFNAC=" &
Format(CDate(FechaNacimiento.Text), "yyyyMMdd") & ", RPFENT= " & _

Format(CDate(FechaCaducidad.Text), "yyyyMMdd") & ", RPNACI='" &
Nacionalidad.Text & "' WHERE RPEDI='70' AND RPREFE = " & _

Me.txtRPREFE.Text & " AND RPNUMO = " & Me.txtRPNUMO.Text

myCommand.ExecuteNonQuery() ' ERROR La propiedad conection no se ha iniciado