Let's Talk about .. SQL Server 2005-Convert AD to BD

I found the way to convert the AD to BD in the SQL query from http://www.narisa.com/forums/index.php?act=Print&client=printer&f=22&t=21017
[SQL]

convert(varchar(4), year(AD_Date) + 543)
+ '-' +
convert(varchar(2),month(AD_Date))
+ '-' +
convert(varchar(2), day(AD_Date))
as BD_Date,

Let's Talk about .. Visual Stuido 2005-Function Get DataTable or variable from SQL2005 Stored Procedure

[VB.Net]
Public Shared Function GetDataTableByValueAAndValueB(ByVal ValueA As String, ByVal ValueB As String) As DataTable
Dim ds As New DataSet
Dim SqlParam As SqlParameter() = Nothing
addParameter(SqlParam, "@ValueA ", ValueA)
addParameter(SqlParam, "@ValueB", ValueB)
Helper.SqlHelper.FillDataset(ConnectionString _
, CommandType.StoredProcedure _
, "spPBG_Trn_TrackingList_GetDataTableByValueAAndValueB" _
, ds _
, dtName _
, SqlParam)
Return ds.Tables(dtName(0))
End Function


[VB.Net]
Public Shared Function GetResultByValueAAndValueBAndValueC(ByVal ValueA As String, ByVal ValueB As String, ByVal ValueC As String) As Integer
Dim SqlParam As SqlParameter() = Nothing
addParameter(SqlParam, "@ValueA", ValueA)
addParameter(SqlParam, "@ValueB", ValueB)
addParameter(SqlParam, "@ValueC",ValueC )

Dim dr As SqlDataReader = Helper.SqlHelper.ExecuteReader(ConnectionString, CommandType.StoredProcedure, "GetResultByValueAAndValueBAndValueC", SqlParam)
If dr.Read() Then
Result = (Helper.ConvertHelper.NullToNothing(dr("Result")))
End If

Return Result
End Function