Option Explicit

Dim conn As New ADODB.Connection '定義connection 物件

Dim rs As New ADODB.Recordset

Private Sub Form_Load() '初始化程式

Set conn = New ADODB.Connection   '分配一個connection物件

Set rs = New ADODB.Recordset  '分配一個recordset物件

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data source=" & App.Path & "\tjn.mdb;" & _

"Persist Security Info=False"  '設定連線字串

conn.Open  '開啟連線

rs.Open "person", conn, , adCmdTable '開啟資料表EmTabl

Set MSHFlexGrid1.DataSource = rs  '開啟資料控制源為rs物件

rs.Close   '關閉recordset物件

conn.Close '關閉connection物件

End Sub

Private Sub MSHFlexGrid1_RowColChange()       '當點選裡面的文字時候會將選擇的文字進行操作

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data source=" & App.Path & "\tjn.mdb;" & _

"Persist Security Info=False"  '設定連線字串

conn.Open  '開啟連線

rs.Open "select * from person where address='10' and datt like '2018/7/11%'", conn, adOpenKeyset

If rs.RecordCount > 0 Then

Text2.Text = "日期：" & rs.Fields(0) & "編號：" & rs.Fields(1) & "基站：" & rs.Fields(2)

End If

rs.Close

conn.Close

End Sub