Visual Basic.NET - Insertar una fecha en sql server

Como ingreso una fecha a sql server

Muestra de la cadena

dato1 = CDate(Now)
If IsDate(dato1) = True Then
'el string es una fecha
MsgBox("El string es una fecha")
Else
'el string no es una fecha
MsgBox("El string no es una fecha")
End If

cuando veo en el Watch la variable dato1 me da este valor "22/08/2006" pero sigue siendo un string aunque ya le aplique CDate

cmdComando.CommandText = "INSERT INTO Tabla4 VALUES('" & dato1 & "')"

Tabla4 en sql server
campo tipo de dato
fecha datetime

"INSERT INTO Tabla4 VALUES( convert(datetime,'" & tufecha & "',103)"