Visual Basic

.Text = m.ResponseDate.ToString("MM/dd/yy H:mm") 

.Text = DateTime.ParseExact(m.ResponseDate, "MM/dd/yy H:mm", CultureInfo.InvariantCulture)

Using context As New CRMContext()
Dim pResults As New CRM_MESSAGES With
  {
  .Subject = sCM.m_Contact_Subject
  }
context.SaveChanges()

Public Class CRMContext
        Inherits DbContext

        Public Sub New()
            MyBase.New("DefaultConnection")

            Database.SetInitializer(New CreateDatabaseIfNotExists(Of CRMContext))
            Entity.Database.SetInitializer(Of CRMContext)(Nothing)

        End Sub

        Public Property CRM_MESSAGES As DbSet(Of CRM_MESSAGES)

        Public Overrides Function SaveChanges() As Integer

            ChangeTracker.DetectChanges()

            'Call IPrepareForSave on entities that support it...
            Return MyBase.SaveChanges()

        End Function

Protected Overrides ReadOnly Property CreateParams() As CreateParams
    Get
        Dim cp As CreateParams = MyBase.CreateParams
        cp.ExStyle = cp.ExStyle Or &H2000000
        ' Turn on WS_EX_COMPOSITED
        Return cp
    End Get
End Property