VB.Net: Save no value to DateTime Parm Type in S/P

Dim cmdBinTrans As New SqlCommand("LBSI_BinUTrans", SQLConnect, SOShipments)
            cmdBinTrans.CommandType = CommandType.StoredProcedure
 
            cmdBinTrans.Parameters.Add("@ItemCode", SqlDbType.NVarChar, 25)
            cmdBinTrans.Parameters("@ItemCode").Value = Item
 
            cmdBinTrans.Parameters.Add("@UserCode", SqlDbType.NVarChar, 8)
            cmdBinTrans.Parameters("@UserCode").Value = UserCode
 
            cmdBinTrans.Parameters.Add("@DateTime", SqlDbType.DateTime)
            cmdBinTrans.Parameters("@DateTime").Value = TodayDate
 
            cmdBinTrans.Parameters.Add("@ObjId", SqlDbType.Int)
            cmdBinTrans.Parameters("@ObjId").Value = ObjId
 
            cmdBinTrans.Parameters.Add("@FromWhseCode", SqlDbType.NVarChar, 10)
            cmdBinTrans.Parameters("@FromWhseCode").Value = FromWhse
 
            cmdBinTrans.Parameters.Add("@FromBinLoc", SqlDbType.NVarChar, 10)
            cmdBinTrans.Parameters("@FromBinLoc").Value = FromBin
 
            cmdBinTrans.Parameters.Add("@ToWhseCode", SqlDbType.NVarChar, 10)
            cmdBinTrans.Parameters("@ToWhseCode").Value = ToWhse
 
            cmdBinTrans.Parameters.Add("@ToBinLoc", SqlDbType.NVarChar, 10)
            cmdBinTrans.Parameters("@ToBinLoc").Value = ToBin
 
            cmdBinTrans.Parameters.Add("@Qty", SqlDbType.Float, 2)
            cmdBinTrans.Parameters("@Qty").Value = Qty
 
            cmdBinTrans.Parameters.Add("@DocNum", SqlDbType.Int)
            cmdBinTrans.Parameters("@DocNum").Value = DocNum
 
            cmdBinTrans.Parameters.Add("@DocEntry", SqlDbType.Int)
            cmdBinTrans.Parameters("@DocEntry").Value = DocEntry
 
            cmdBinTrans.Parameters.Add("@LineNum", SqlDbType.Int)
            cmdBinTrans.Parameters("@LineNum").Value = LineNum
 
            cmdBinTrans.Parameters.Add("@ObjRef", SqlDbType.NVarChar, 10)
            cmdBinTrans.Parameters("@ObjRef").Value = ObjRef
 
            cmdBinTrans.Parameters.Add("@PostDate", SqlDbType.DateTime)
            cmdBinTrans.Parameters("@PostDate").Value = 
 
            cmdBinTrans.Parameters.Add("@PostUser", SqlDbType.NVarChar, 8)
            cmdBinTrans.Parameters("@PostUser").Value = ""
 
            cmdBinTrans.Parameters.Add("@Posted", SqlDbType.NVarChar, 1)
            cmdBinTrans.Parameters("@Posted").Value = Posted
 
            cmdBinTrans.Parameters.Add("@EMessage", SqlDbType.NVarChar, 254)
            cmdBinTrans.Parameters("@EMessage").Value = ""
 
            cmdBinTrans.ExecuteNonQuery()

                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55: