Visual Basic

Imports System.Data.OleDb

Public Class Database

    Public Function CreateDatabase(ByVal FileName As String) As Boolean

        Dim ADOXCatalog As ADOX.Catalog = New ADOX.Catalog
        Dim ADOXTable As ADOX.Table = New ADOX.Table
        Dim ADOXindex As ADOX.Index = New ADOX.Index
        Dim oConnect As String

        oConnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FileName

        Try

            ADOXCatalog.Create(oConnect)

            ADOXTable.Name = "tblContacts"
            ADOXTable.Columns.Append("ID", ADOX.DataTypeEnum.adInteger)
            ADOXTable.Columns.Append("Nick", ADOX.DataTypeEnum.adVarChar, 64)
            ADOXTable.Columns.Append("RealName", ADOX.DataTypeEnum.adVarChar, 64)
            ADOXTable.Columns.Append("Age", ADOX.DataTypeEnum.adInteger)
            ADOXTable.Columns.Append("BirthDate", ADOX.DataTypeEnum.adDate)
            ADOXTable.Columns.Append("Address", ADOX.DataTypeEnum.adVarChar, 256)
            ADOXTable.Columns.Append("PhoneNum", ADOX.DataTypeEnum.adVarChar, 32)
            ADOXTable.Columns.Append("email1", ADOX.DataTypeEnum.adVarChar, 64)
            ADOXTable.Columns.Append("email2", ADOX.DataTypeEnum.adVarChar, 64)
            ADOXTable.Columns.Append("email3", ADOX.DataTypeEnum.adVarChar, 64)
            ADOXTable.Columns.Append("Notes", ADOX.DataTypeEnum.adVarChar, 4096)

            ADOXCatalog.Tables.Append(ADOXTable)

            ADOXindex.Name = "IDindex"
            ADOXindex.Columns.Append("ID")

            ADOXTable.Indexes.Append(ADOXindex)

        Catch ex As System.Runtime.InteropServices.COMException
        Catch ex As Exception

            MsgBox(ex.Message & vbCrLf & ex.StackTrace)
            Return False

        Finally

            ADOXCatalog = Nothing

        End Try

        Return True

    End Function
End Class

Private Sub DataGrid1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DataGrid1.DragDrop
    Dim lbl As String = DirectCast(e.Data.GetData(GetType(String)), String)
    Dim Index As Integer

    TextBox1.Text = lbl
    DataGrid1.BorderStyle = BorderStyle.Fixed3D

    Dim pt As Point = DataGrid1.PointToClient(New Point(e.X, e.Y))
    Dim hti As DataGrid.HitTestInfo = DataGrid1.HitTest(pt.X, pt.Y)
    hitRow = hti.Row
    hitCol = hti.Column
    If hti.Type = DataGrid.HitTestType.Cell Then
        DataGrid1(hti.Row, hti.Column) = lbl
    End If

    Label6.Text = hitRow
    Label7.Text = hitCol
    Label9.Text = Me.DataGrid1(hti.Row, 8).ToString()
End Sub

HttpWebResponse oResp = (HttpWebResponse)myReq.GetResponse();
     StreamReader oResultSR = new StreamReader(oResp.GetResponseStream(), encoding);
     sMessage = oResultSR.ReadToEnd();
     TextWriter tw = new StreamWriter(@"c:\hmmm.txt");
     tw.WriteLine(sMessage);
     tw.Close();

HttpWebResponse oResp = (HttpWebResponse)myReq.GetResponse();
     StreamReader oResultSR = new StreamReader(oResp.GetResponseStream(), encoding);
     DatasetXML[a].ReadXml(oResultSR);
     DatasetXML[a].WriteXml(@"c:\hmmm.xml");

Private Sub cmdOK_Click()
    'check for correct password
    If txtPassword = "123" Then
        
        'place code to here to pass the
        'success to the calling sub
        'setting a global var is the easiest
        LoginSucceeded = True
        Me.Hide
        frmMain.Show
    Else
        MsgBox "Invalid Password, try again!", , "Login"
        txtPassword.SetFocus
        
        SendKeys "{Home}+{End}"
    End If
End Sub