Brendon, I want to make sure we're still talking about Visual Basic 6; your earlier example and code led me to this conclusion, but if we are really talking about Visual Basic.NET, then there is much different approach. The code in the VS.NET magazine article (here[^]) was an excellent example of running a query and binding it to a MS Hierarchical Flex Grid on a Visual Basic 6 form. If you boil it down to the most basic elements, it looks like this: Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Set cnn = New ADODB.Connection Set rs = New ADODB.Recordset cnn.Open "..." ' details omitted rs.Open "SELECT \* FROM Customers", cnn, adOpenKeyset, adLockOptimistic Set MyFlexGrid.DataSource = rs However, I get the feeling from your recent inquiries (via email) that you are also concerned about the SQL syntax for joining a Customer Orders table on one or more Customer records. That would be fairly easy to produce, but I have no idea what your table looks like, so I can only offer the most basic suggestions, if that is the case. Let me know, OK? What a piece of work is man, how noble in reason, how infinite in faculties, in form and moving how express and admirable . . . and yet to me, what is this quintessence of dust? -- Hamlet, Act II, Scene ii.

WRONG FORUM

Upper case is : Ucase$(string) Access to Excel: Add a reference to Microsoft Excel Object. Public Class clsXL Dim xl as Excel.Application Private Sub Class_Initialize() On Error Resume Next Set xl = CreateObject("Excel.Application") xl.DisplayAlerts = False End Sub Private Sub Class_Terminate() ' If IsLaunched Then xl.Application.Quit Set xl = Nothing End Sub Public Function Export(rs As Recordset) as Boolean dim ws as Worksheet dim c as integer 'column dim i as integer 'row counter If Not xl Is Nothing Then xl.Workbooks.Add Set ws = xl.ActiveSheet 'Set the column headers '.... 'Now loop through the rows & columns of the recordset to add the values i = 2 do while not rs.eof for c = rs.fields.count w.Cells(i, c) = .Fields(c).Value & vbNullString i = i + 1 rs.movenext next loop 'Format work sheet further 'now print preview the sheet xl.DisplayAlerts = False xl.Visible = True xl.ActiveWorkbook.Worksheets.PrintOut , , , True xl.Visible = False xl.Application.Quit end if End Function By doing this he can do what ever he wants with the excel spreadsheet Save, Sent To or Print. Hope this helps. Michael

Why not just do it the simple way: in the keydown event just do a .toupper for the char and handle the event.