如何使用VBA循环读取数据

谢谢管理员张志大神的回复

你说的语句我用过了，但不知为何返回都全是NULL

代码如下，请指点，谢谢

OpenConnect ("SELECT * FROM [T - Formula]") 'rs


Dim i As Integer


For i = 1 To 9


rs.MoveFirst


If rs![Name] = "S0假期" Then
    
    G1 = rs![Formula]
End If


If rs![Name] = "S0基本" Then
    
    G2 = rs![Formula]
End If


If rs![Name] = "S0周末" Then
    
   G3 = rs![Formula]
End If


If rs![Name] = "S0加班" Then
    
    G4 = rs![Formula]
End If


If rs![Name] = "S1请假" Then
    
    G5 = rs![Formula]
End If


If rs![Name] = "S1周六" Then
    
    G6 = rs![Formula]
End If


If rs![Name] = "S2扣减" Then
    
    G7 = rs![Formula]
End If


If rs![Name] = "S2周扣减" Then
    
    G8= rs![Formula]
End If


If rs![Name] = "S2岗位" Then
    
    G8 = rs![Formula]
End If

rs.MoveNext

Next i
rs.Close