Sub LoadChart
OpenDatabase()
Dim strSQL6 As String = "SELECT ac_cd AS 'รหัส', ac_nm AS 'ชื่อ ภาษาไทย', ac_nme AS 'ชื่อ ภาษาอังกฤษ' FROM Sacc_Chart"
Dim da6 As New SqlDataAdapter(strSQL6, Connt)
Dim ds6 As New DataSet
da6.Fill(ds6, "Sacc_Chart")
With cb_ac_code.Properties
.DataSource = ds6.Tables("Sacc_Chart")
.DisplayMember = "รหัส"
.ValueMember = "รหัส"
End With
End Sub