Roland,

See my prior message for the explanation of this.

>Hi Cathi,
>
>The following works but why won't the other?
>
> Dim myDataRow As DataRow
> Dim MyEmailBody1 As String
> Dim MyEmailBody2 As String
> Dim MyEmailBody3 As String
> Dim MyEmailBody4 As String
> Dim MyEmailBody5 As String
> Dim MyEmailBody6 As String
> Dim MyEmailBody7 As String
> Dim MyEmailBody8 As String
> Dim MyEmailBody9 As String
> For Each myDataRow In NhdCreateReportOrders_Ds.Tables("CbBksfldNhdDailyOrders").Rows
> If myDataRow("AccountId") Is DBNull.Value Then
> MyEmailBody1 = ""
> Else
> MyEmailBody1 = myDataRow("AccountId") & " "
> End If
> If myDataRow("OrderNumber") Is DBNull.Value Then
> MyEmailBody2 = ""
> Else
> MyEmailBody2 = myDataRow("OrderNumber") & " "
> End If
> If myDataRow("APN") Is DBNull.Value Then
> MyEmailBody3 = ""
> Else
> MyEmailBody3 = myDataRow("APN") & " "
> End If
> If myDataRow("StreetNumber") Is DBNull.Value Then
> MyEmailBody4 = ""
> Else
> MyEmailBody4 = myDataRow("StreetNumber") & " "
> End If
> If myDataRow("StreetDirection") Is DBNull.Value Then
> MyEmailBody5 = ""
> Else
> MyEmailBody5 = myDataRow("StreetDirection") & " "
> End If
> If myDataRow("Street") Is DBNull.Value Then
> MyEmailBody6 = ""
> Else
> MyEmailBody6 = myDataRow("Street") & " "
> End If
> If myDataRow("City") Is DBNull.Value Then
> MyEmailBody7 = ""
> Else
> MyEmailBody7 = myDataRow("City") & " "
> End If
> If myDataRow("State") Is DBNull.Value Then
> MyEmailBody8 = ""
> Else
> MyEmailBody8 = myDataRow("State") & " "
> End If
> If myDataRow("Zip") Is DBNull.Value Then
> MyEmailBody9 = ""
> Else
> MyEmailBody9 = myDataRow("Zip") & " "
> End If
> MyEmailBody = MyEmailBody1 + MyEmailBody2 + MyEmailBody3 + MyEmailBody4 + MyEmailBody5 + MyEmailBody6 + MyEmailBody7 + MyEmailBody8 + MyEmailBody9 + ControlChars.CrLf
>
>Thanks
>Roland
>
>============================================================================
>
>>Hi Roland,
>>
>>Your syntax should be okay from what I can tell. Here is a sample program that tests your syntax against the SQL Server Northwind database. This doesn't generate any errors for me. Try this code. If no errors then the problem is somewhere else in your data.
>>
>>

>>Dim oConnStr As String = "data source=localhost;initial catalog=Northwind;user id=sa;password="
>>Dim oConn As New SqlConnection()
>>oConn.ConnectionString = oConnStr
>>oConn.Open()
>>
>>' Create a Command object with select statement
>>Dim strSelect As [String] = "SELECT * FROM CUSTOMERS where customerid like 'C%'"
>>Dim oSelectCommand As New SqlCommand(strSelect, oConn)
>>
>>' Create a DataAdapter
>>Dim da As New SqlDataAdapter()
>>da.SelectCommand = oSelectCommand
>>
>>' Create a DataSet
>>Dim ds As New DataSet()
>>
>>' Fill the DataSet with table information
>>da.Fill(ds, "CUSTOMERS")
>>
>>Dim dr As DataRow
>>For Each dr In ds.Tables("CUSTOMERS").Rows()
>>    MessageBox.Show(IIf(IsDBNull(dr("Region")), "Value is Null", dr("Region")))
>>Next
>>
>>oConn.Close()
>>

>>
>>>Hi,
>>>
>>>I encountered the following error message with the code below the error message.
>>>
>>>An unhandled exception of type 'System.InvalidCastException' occurred in microsoft.visualbasic.dll
>>>Additional information: Cast from type 'DBNull' to type 'String' is not valid.
>>>
>>>MyEmailBody = myDataRow("AccountId") & " " & _
>>>myDataRow("OrderNumber") & " " & _
>>>IIf(IsDBNull(myDataRow("APN")), "", Trim(myDataRow("APN"))) & " " & _
>>>IIf(IsDBNull(myDataRow("StreetNumber")), "", Trim(myDataRow("StreetNumber")))
>>>
>>>What is the proper code to cancanate the string?
>>>
>>>Any help would be greatly appreciated.
>>>
>>>
>>>Thanks
>>>Roland