Teşekkürler Hocalarım sorunumu çözdüm.
İlgilenene arkadaşlar için Çözümü:

Private Sub Komut0_Click()
Dim rs As New ADODB.Recordset
Dim sorgu As String
sorgu = "SELECT [T300_DisiplinGorusme].[ID], [T300_DisiplinGorusme].[OkulNo], [T300_DisiplinGorusme].[AdiSoyadi], [T300_DisiplinGorusme].[Sinifi], [T300_DisiplinGorusme].[sube], [T300_DisiplinGorusme].[Cinsiyeti], [T300_DisiplinGorusme].[GorusmeNo], [T300_DisiplinGorusme].[DisplineVeren], [T300_DisiplinGorusme].[Ek], [T300_DisiplinGorusme].[veren], [T300_DisiplinGorusme].[sonek], [T300_DisiplinGorusme].[Neden], [T300_DisiplinGorusme].[DilekceTarihi], [T300_DisiplinGorusme].[GorusmeTarihi], [T300_DisiplinGorusme].[Ay], [T300_DisiplinGorusme].[Danisman], [T300_DisiplinGorusme].[Karar], [T300_DisiplinGorusme].[Gorusme], [T300_DisiplinGorusme].[Onay], [T300_DisiplinGorusme].[oyil] FROM [T300_DisiplinGorusme];"
[Forms]![Form1].[Form]![Liste4].RowSource = sorgu
rs.Open sorgu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

'MsgBox rs(0)
'MsgBox rs(1)
Set rs = Nothing
Liste4.Requery
End Sub