... Chương 3: Cài đặt Dim cngay As String cngay = Right("0" & Microsoft.VisualBasic.Day(ngay), 2) & Right("0" & Month(ngay), 2) & Right(Year(ngay), 2) Dim sqlConn As SqlConnection ... drSqldataReader1.Close() Trang: 208 Chương 3: Cài đặt sqlConn.Close() sqlconn1.Close() Return madh End Function _ Hàm kiểm tra mã trùng Function KTMaTrung(ByVal b As String, ByVal c As String, ByVal ma As String)...