Visual Basic - MENSAJE DE ERROR AL GUARDAR FECHA DEL SERVER

Hola que tal...

Tengo lo siguientes codigos que mandan a llamar la fecha del server, pero al momento de guardar me aparece el mensaje, aunque en realidad si lo guarda. Solo necesito que ese mensaje no apararezca:

"FIELD NO UPDATABLE, BOUND PROPIERTY NAME:TEXT TEXT, FIELD NAME:CURRENTDATE"

Public Sub RellenarFecha()
Dim cnn4 As New ADODB.Connection
Dim sQuery4 As String
Dim Rs4 As New ADODB.Recordset
With cnn4
.CursorLocation = adUseClient
.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=base_tel;Initial Catalog=base_tel"
.Open
End With
sQuery4 = "SELECT CONVERT(VARCHAR(10), GETDATE(), 103) AS [CurrentDate]"
Rs4.Open sQuery4, cnn4, adOpenForwardOnly, adLockOptimistic
Rs4.ActiveConnection = Nothing
TxtFechaCap2.DataField = "CurrentDate"
Set TxtFechaCap2.DataSource = Rs4
TxtFechaCap.Text = TxtFechaCap2 'este lo puse porque encontre que el error se debia a controles enlazados asi que puse este de mas , pero no funciono
Set Rs4 = Nothing
cnn4.Close
Set cnn4 = Nothing
End Sub

Te genera un error en los contrles enlazados, no por los controles, si no por las funciones de uno y las restricciones del otro.
Tu recordset está enlazado a un valor que no proviene de ninguna tabla, por lo que no es modificable. El TextBox es, en si, modificable, por lo que estás enlazando un dato no modificable a un control que lo puede modificar, independientemente que lo quieras hacer o no.
Dado que no lo vas a hacer, es preferible asignar al .Text el valor o no enlazar el componente al recordset.
Algo como esto:

Public Sub RellenarFecha()
Dim cnn4 As New ADODB.Connection
Dim sQuery4 As String
Dim Rs4 As New ADODB.Recordset
With cnn4
.CursorLocation = adUseClient
.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=base_tel;Initial Catalog=base_tel"
.Open
End With
sQuery4 = "SELECT CONVERT(VARCHAR(10), GETDATE(), 103) AS [CurrentDate]"
Rs4.Open sQuery4, cnn4, adOpenForwardOnly, adLockOptimistic
Rs4.MoveFirst
TxtFechaCap.Text = Rs4("CurrentDate")
Rs4.ActiveConnection = Nothing
Set Rs4 = Nothing
cnn4.Close
Set cnn4 = Nothing
End Sub

Espero que te sirva.

Saludos.

OK, MUCHAS GRACIAS

SI RESULTO