Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
strsql = "SELECT*FROM WorkTime"
rs.Open strsql, conn, adOpenDynamic, adLockBatchOptimistic
txtStartAM.Text = rs("StartTimeAM")
txtEndAM.Text = rs("EndTimeAM")
txtStartPM.Text = rs("StartTimePM")
txtEndPM.Text = rs("EndTimePM")
rs.Close
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024