select ข้อมูลออกมาแต่ค่าที่ได้เป็นศูนย์ select ข้อมูลออกมาแต่ค่าที่ได้เป็นศูนย์ จะ select ค่าสูงสุดออกมาแต่พอเอาไปแสดงค่าที่ได้เป็นศูนย์

Dim MaxCusID As String = Val("")

objCmd = New SqlCommand(strSQL, objConn)
Dim dtAdapter As New SqlDataAdapter

strSQL = "Select MAX(CusID) As MaxCusID from Customer"

        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With
        dtAdapter.SelectCommand = objCmd

Session("CusID") = CusID

Dim MaxCusID As String = Val("")

objCmd = New SqlCommand(strSQL, objConn)

strSQL = "Select MAX(CusID) As MaxCusID from Customer"

      With objCmd
           .Connection = objConn
           .CommandType = CommandType.Text
           .CommandText = strSQL         
      End With
        
Session("CusID") = objCmd.ExecuteScalar <<< ลองเอาไปแก้ดู

    objCmd = New SqlCommand(strSQL, objConn)
        strSQL = "Select top 1 CusID from Customer order by CusID DESC"
        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With
        Dim reader As SqlDataReader = objCmd.ExecuteReader()
        reader.Read()
        Dim MaxCusID As String = reader("CusID")
        reader.Close()

        Session("CusID") = MaxCusID