Type SQLCA_STRUCT
    sqlcaid As String * 8
    sqlcabc As Long
    sqlcode As Long
    sqlerrml As Integer
    sqlerrmc As String * 70
    sqlerrp As String * 8
    sqlerrd(6) As Long
    sqlwarn As String * 11
    sqlstate As String * 5
End Type
Public Declare Function sqlepstart Lib "db2app" Alias "sqlepstart_api" 
(ByVal junk&, ByRef sqlca As SQLCA_STRUCT) As Integer
'
DB2_start = sqlepstart(0, sqlca)        ' Start DB2 call

fileno = FreeFile
Open db2file For Output As #fileno
sqlstmt = "" + _
          "db2start;" + vbNewLine + _
          "quit;"
          
Print #fileno, sqlstmt         ' Write commands to a file
Close #fileno                  ' Close it and execute the command
db2cmd = "db2cmd /i /c db2 -tvf " + db2file       ' Generate the command
progID = Shell(db2cmd, vbMinimizedNoFocus)       ' Shell out to run it