มีเรื่องให้ช่วยค่ะคือเรามีโค้ด VB6 อยู่แล้วเราต้องการแปลงให้เป็นโค้ด VB2010 ค่ะช่วยหน่อยนะคะ ลองผิดลองถูกเองแล้วมันไม่ได้อะค่ะ

Private Sub RunCreditID()
    sql = "SELECT * FROM Credit ORDER BY Credit_ID DESC "
    Set rs = conn.Execute(sql)

    If rs.EOF = True Then txtcreditID.Text = Right(CInt(Year(Now) + 543), 2) & "0001": rs.Close: Exit Sub
    If Left(rs("Credit_ID "), 2) <> Right(CInt(Year(Now) + 543), 2) Then txtcreditID.Text = Right(CInt(Year(Now) + 543), 2) & "0001": rs.Close: Exit Sub
    
    txtcreditID.Text = Right(CInt(Year(Now) + 543), 2) & Format(CInt(Right(rs("Credit_ID "), 4)) + 1, "0000")

End Sub