strSQL = "SELECT "
strSQL &= "SUM(amount) as total "
strSQL &= "FROM "
strSQL &= "SB_data as sb "
strSQL &= "WHERE user_id = '" & drpSalesman.SelectedItem.Value & "' AND datestamp > '" & Now.ToString("d") & "' "

It looks like right here you are passing in a string value into user_id. number values do not require ' ' around them.

put a break on this and check whatis being sent.