Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now
Private Sub Start_Command_Click() Dim col As Integer Dim row As Integer Set cnn = CreateObject("ADODB.Connection") Set rst = CreateObject("ADODB.Recordset") stDB = "Path to db\db31.mdb" Range("B5") = Me.ComboBox1.Value Range("D5") = Me.ComboBox2.Value cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;" _ & "Data Source=" & stDB & ";" Range("A7:E888") = " " strSQL = " SELECT [T1.RB],[T1.ID],[T1.ID2], [T1." & Me.ComboBox1.Value & "] WHERE T1.Date= '" & Me.ComboBox2.Value & "' order by T1.RB " rst.Open strSQL, cnn col = 0 row = 6 Do While Not rst.EOF row = row + 1 col = 0 Do While col < rst.Fields.Count Cells(row, col + 1) = rst.Fields(col).Value col = col + 1 Loop rst.MoveNext Loop Set rst = Nothing: Set cnn = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.