[سعود]

كود :

 Private Function dt() As DateTime
       Dim str As String = "server=(Local)\sqlexpress;Integrated Security=True;"
       Dim con As New SqlClient.SqlConnection(str)
       Dim cm As New SqlClient.SqlCommand("select GetDate()", con)
       If con.State = ConnectionState.Closed Then con.Open()
       Return cm.ExecuteScalar.ToString
   End Function

بدون قاعدة بيانات ولا جدول
اشكر من سال السؤال