IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = object_id(N'[dbo].[TableName]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1)
 DROP TABLE [dbo].[TableName]
GO

CREATE TABLE [dbo].[TableName] (
 ColName1  DATETIME  NOT NULL,
 ColName2  INT   NOT NULL,
 ColName3  VARCHAR(12)  NOT NULL,
 ColName4 NUMERIC(12,0)  )
GO

ALTER TABLE [dbo].[TableName]
 ADD CONSTRAINT   PK_TableName
 PRIMARY KEY  (ColName1, ColName2, ColName3)
GO

GRANT ALL
 ON [dbo].[TableName]
 TO PUBLIC

1.- Tener los Archivos Java Scripts incluidos en el Proyecto.

2.-En la página donde se utilizara agregar en el encabezado HTML lo siguiente:

<LINK title="win2k-cold-1" media="all" href="css/calendar-win2k-cold-1.css" type="text/css" rel="stylesheet">
<script src="Includes/calendar/calendar.js" type="text/javascript"></script>
<script src="Includes/calendar/lang/calendar-es.js" type="text/javascript"></script>
<script src="Includes/calendar/calendar-setup.js" type="text/javascript"></script>

2.-Siguiendo en HTML ir al Botón y agregar el siguiente codigo.

<asp:textbox oncontextmenu="return false;" id="TxtFechaInicio" onkeydown="return false;" runat="server" ></asp:textbox>
<asp:button id="BtnCalendar1" runat="server" Text="..."></asp:button>
   <script type="text/javascript">    
      Calendar.setup({            
      inputField     :    "TxtFechaInicio",   
      ifFormat       :    "%d/%m/%Y",                             
      singleClick    :    true,          
      step           :    1,              
      align          :    "Br",
      button : "BtnCalendar1"
      });
   </script>

En la propiedad Data Fotmatting Expression del Datagrid.

Cadena de Formatos de Fecha y Hora

Imports System.Data
Imports System.Data.SqlClient

Public Class clsConexion

    Public Function FG_ConnectionString_Get(ByVal PP_STR_Servidor As String, ByVal PP_STR_BaseDatos As String, ByVal PP_STR_User_Id As String, ByVal PP_STR_Password As String) As String
        Dim VP_STR_ConnectionString As String

        VP_STR_ConnectionString = "Data source=" + PP_STR_Servidor + ";"
        VP_STR_ConnectionString = VP_STR_ConnectionString + "initial catalog=" + PP_STR_BaseDatos + ";"
        VP_STR_ConnectionString = VP_STR_ConnectionString + "user id=" + PP_STR_User_Id + ";"
        VP_STR_ConnectionString = VP_STR_ConnectionString + "password=" + PP_STR_Password + ""

        'Regresa el Resultado
        FG_ConnectionString_Get = VP_STR_ConnectionString
    End Function

    Public Function FG_SqlConnection_Open(ByVal VP_STR_ConnectionString As String) As SqlConnection
        Dim VP_SQL_Conexion As SqlConnection

        'Crea la conexion de la BD.
        VP_SQL_Conexion = New SqlConnection(VP_STR_ConnectionString)
        'Regresa el Resultado
        FG_SqlConnection_Open = VP_SQL_Conexion
    End Function

    Public Sub PG_SqlCommand_Init(ByRef PP_SQL_Conexion As SqlConnection, ByRef PP_SQL_Comando As SqlCommand, ByVal PP_STR_Nombre_SP As String)
        With PP_SQL_Comando
            .Connection = PP_SQL_Conexion
            .CommandText = PP_STR_Nombre_SP
            .CommandType = CommandType.StoredProcedure
            .Parameters.Clear()
        End With
        'Abre la Conexion.
        PP_SQL_Conexion.Open()
    End Sub

    Public Sub PG_Comando_Parameter_Set_Integer(ByRef PP_SQL_Comando As SqlCommand, ByVal PP_STR_Nombre_Parametro As String, ByVal PP_INT_Valor As Integer)
        'Configura un Parametro de Tipo Entero
        Dim VP_PAR_Parametro As New SqlParameter

        With VP_PAR_Parametro
            .ParameterName = (PP_STR_Nombre_Parametro)
            .SqlDbType = SqlDbType.Int
            .Value = PP_INT_Valor
        End With

        'Asigna el Parametro
        PP_SQL_Comando.Parameters.Add(VP_PAR_Parametro)
    End Sub

    Public Sub PG_Comando_Parameter_Set_Char(ByRef PP_SQL_Comando As SqlCommand, ByVal PP_STR_Nombre_Parametro As String, ByVal PP_STR_Valor As String)
        'Configura un Parametro de Tipo Char
        Dim VP_PAR_Parametro As New SqlParameter

        With VP_PAR_Parametro
            .ParameterName = (PP_STR_Nombre_Parametro)
            .SqlDbType = SqlDbType.Char
            .Value = Trim(PP_STR_Valor)
        End With

        'Asigna el Parametro
        PP_SQL_Comando.Parameters.Add(VP_PAR_Parametro)
    End Sub

    Public Sub PG_Comando_Parameter_Set_Decimal(ByRef PP_SQL_Comando As SqlCommand, ByVal PP_STR_Nombre_Parametro As String, ByVal PP_DEC_Valor As Decimal)
        'Configura un Parametro de Tipo Decimal.
        Dim VP_PAR_Parametro As New SqlParameter

        With VP_PAR_Parametro
            .ParameterName = (PP_STR_Nombre_Parametro)
            .SqlDbType = SqlDbType.Decimal
            .Value = PP_DEC_Valor
        End With

        'Asigna el Parametro
        PP_SQL_Comando.Parameters.Add(VP_PAR_Parametro)
    End Sub

    Public Sub PG_Comando_Parameter_Set_Date(ByRef PP_SQL_Comando As SqlCommand, ByVal PP_STR_Nombre_Parametro As String, ByVal PP_DAT_Valor As Date)
        'Configura un Parametro de Tipo Fecha.
        Dim VP_PAR_Parametro As New SqlParameter

        With VP_PAR_Parametro
            .ParameterName = (PP_STR_Nombre_Parametro)
            .SqlDbType = SqlDbType.DateTime
            .Value = PP_DAT_Valor
        End With

        'Asigna el Parametro
        PP_SQL_Comando.Parameters.Add(VP_PAR_Parametro)
    End Sub

    Public Sub PG_Comando_ExecuteNonQuery(ByVal PP_SQL_Comando As SqlCommand)
        PP_SQL_Comando.ExecuteNonQuery()
    End Sub

    Public Sub PG_DataTable_Fill(ByVal PP_SQL_Comando As SqlCommand, ByRef PP_DTA_Resultado As DataTable)
        'Llena el DataTable.
        Dim VP_DAP_Resultado As New SqlDataAdapter

        VP_DAP_Resultado.SelectCommand = PP_SQL_Comando
        VP_DAP_Resultado.Fill(PP_DTA_Resultado)

    End Sub

    Public Sub PG_DataSet_Fill(ByVal PP_SQL_Comando As SqlCommand, ByRef PP_DTS_Resultado As DataSet)
        'Llena el DataTable.
        Dim VP_DAP_Resultado As New SqlDataAdapter

        VP_DAP_Resultado.SelectCommand = PP_SQL_Comando
        VP_DAP_Resultado.Fill(PP_DTS_Resultado)

    End Sub

    Public Sub PG_SqlConnection_Close(ByRef PP_SQL_Conexion As SqlConnection)
        If PP_SQL_Conexion.State = ConnectionState.Open Then
            PP_SQL_Conexion.Close()
        End If
    End Sub

End Class

Esto se debio a que estaba creando una tabla temporal en una base de datos y su Collation era diferente al de TEMPDB.  La tabla temporal tomaba la collation de la TEMPDB. Entonces lo que hice fue asignarle la Collation de la BD donde la estoy mandando a generar.  

Name: DBDWH
Collation name: SQL_Latin1_General_CP850_CI_AS

Name: tempdb
Collation name: SQL_Latin_General_CP1_CI_AI

Solucion:  Despues de los campo string coloque COLLATE database_default.

CREATE TABLE ##Ventas (
 Producto    VARCHAR(13)   COLLATE database_default,
 Folio       VARCHAR(30)   COLLATE database_default,
 FechaVenta  NUMERIC(8, 0) )

COLLATE: Es una cláusula que se puede aplicar a una definición de base de datos o a una definición de columna para definir la intercalación, o a una expresión de cadena de caracteres para aplicar una conversión de intercalación.