Error al salvar una fecha

Hola grupo,
lo he intentado de todas formas pero no le logro llegar al problema, tengo
una aplicacion donde manejo campos de fecha, el asunto es que cuando hago el
insert a la bd (access ó msde, en ambas me da el mismo error), lo que me
guarda es la fecha 01/01/1900 sin importar la fecha que le introduzca, lo he
hecho con textbox y con datetimepicker y no le llego.
adjunto el codigo que estoy usando.

Muchas gracias por la ayuda que me puedan brindar.

Dim fecha As Date

'fecha = "#" & DTPfecha.Value.ToShortDateString & "#"

'fecha = dd / MM / aaaa

fecha = CDate(txtfecha.Text)

fecha = "#" & Format(fecha, "dd/MM/yyyy") & "#"

Dim CnSql As New SqlConnection(ConnectionString)

Dim strSql As String

strSql = "INSERT INTO bdfechas (nombre,fecha) values (" & _

PrepararStr(txtnombre.Text) & _

"," & fecha & _

")"

Dim cmSql As New SqlCommand(strSql, CnSql)

CnSql.Open()

cmSql.ExecuteNonQuery()

CnSql.Close()

cmSql.Dispose()

CnSql.Dispose()