Problemas con el UpDate

[RsOfT]

Al yo actualizar el registro con la siguiente sentencia me borra los demas poniendome la misma informacion en todos, osea que si tengo 5 registros de contactos diferentes si le hago ese update me pone los 5 igualitos a la ultima modificación. Este es el código:

If MsgBox("Esta seguro que desea Modificar este registro", vbYesNo + vbQuestion, "Modificar registro") = vbYes Then
CnDatos.Open "dbDatos"
Set RsTblDatos = CnDatos.Execute("Update TblDatos set Nombre='" & TxtNombre & "',Direccion='" & _
TxtDireccion & "',TelCasa='" & TxtTelCasa & "',TelTrabajo='" & TxtTelTrabajo & _
"',TelCelular='" & TxtTelCelular & "',EMail='" & TxtEmail & _
"',PaginaWeb='" & TxtPaginaWeb & "',Tipo='" & CmbTipo & "',Nota='" & TxtNota & _
"',Fecha=#" & DtpFecha & "#")
End If

Entonces los amigos mios me dicen que es el me falta el where, pero lo coloque asï que fue la unica manera de que al leer el código sentia que tenía sentido y me da error: el error es (Error de sintaxis en la instruccion UPDATE)

If MsgBox("Esta seguro que desea Modificar este registro", vbYesNo + vbQuestion, "Modificar registro") = vbYes Then
CnDatos.Open "dbDatos"
Set RsTblDatos = CnDatos.Execute("Update TblDatos set Nombre,Direccion,TelCasa,TelTrabajo,TelCelular,EMa il,PaginaWeb,Tipo,Nota,Fecha Where Nombre='" & TxtNombre & _
"',Direccion='" & _
TxtDireccion & "',TelCasa='" & TxtTelCasa & "',TelTrabajo='" & TxtTelTrabajo & _
"',TelCelular='" & TxtTelCelular & "',EMail='" & TxtEmail & _
"',PaginaWeb='" & TxtPaginaWeb & "',Tipo='" & CmbTipo & "',Nota='" & TxtNota & _
"',Fecha=#" & DtpFecha & "#")
End If



.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pesimo gusto contentarse con algo mediocre cuando lo excelente esta a nuestro alcance--