高手帮忙、这个程序哪出错了？

Private Function GetMaxCS_MODULE() As String

        Dim Cls_Fun As New YhPublicLib.Cls_SysFun
        Dim strMaxCS As String

        Dim strSql As String

        Dim dr As IDataReader
        Dim max As String = ""

        strSql = "SELECt MAX( WJ_CS)  FROM  YH_BA_BRWJJL  WHERe WJ_CS='" & Me.Txt_CS.Text & "'"
        Try

            dr = Cls_db.GetDataReader(Conn, strSql)
            While dr.Read
                If IsDBNull(dr!MaxCS) Then
                    max = CChar("1")
                Else
                    max = CStr(Val(dr!MaxCS) + 1)
                    'max = max.PadLeft(10, CChar("0"))
                End If
            End While
            Cls_db.Dispose()

        Catch ex As Exception
            Cls_Function.SetWriteSysLog("获取问卷最大次数失败！【" & ex.Message & "】")
            MsgBox("操作失败,请检查数据库连接", MsgBoxStyle.Exclamation, "系统提示")
        End Try
        Return max
    End Function

译文在下面：
Mission: May 8, try your best to take Halifax. We will support you


下面是完整的程序，有几个地方你搞错了，我帮你修正了。
public class J_Crack {
public static void main(String[] args) {
int i;
StringBuffer s = new StringBuffer(
"flb gilkkfh oord vD .czurozS vpzg lg ghvy iflb big ,8 bzN :mlrhhrN");// 括号中为机密电报
for (i = 0; i < s.length(); i++) {
char c = s.charAt(i);
if (c >= 'a' && c <= 'z') {
s.setCharAt(i, (char) ('z' - (c - 'a')));
}
if (c >= 'A' && c <= 'Z') {
s.setCharAt(i, (char) ('Z' - (c - 'A')));
}

}

s.reverse();
System.out.println(s);
}
}

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息