不會的就放這邊

Dim builder As New OleDbConnectionStringBuilder
builder.Provider = "Microsoft.Jet.OLEDB.4.0"
builder.DataSource = "|DataDirectory|\test.mdb"
builder.Add("Jet OLEDB:Database Password", "123456")
Dim str As String = builder.ConnectionString
Return str

Set Picture2.Picture = Picture2.Image
SavePicture Picture2, App.Path & "\sample.bmp"

private void btnOpen_Click(object sender, EventArgs e)
{
    OpenFileDialog openFileDialog = new OpenFileDialog();
    openFileDialog.Filter = "BMP(*.BMP)|*.bmp|" + "所有檔案|*.*";
    if (openFileDialog.ShowDialog() == DialogResult.OK)
    {
        pictureBox1.Width = Image.FromFile(openFileDialog.FileName).Width;
        pictureBox1.Height = Image.FromFile(openFileDialog.FileName).Height;
        pictureBox1.Image = Image.FromFile(openFileDialog.FileName);
    }
}

      '把這段貼到你想要用的元件上面
        Dim conn As New System.Data.OleDb.OleDbConnection()
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source= C:\Users\user\Desktop\123\Database11.mdb"
        Try
        conn.Open()   '打開了
                                '看要做什麼
              ' Insert code to process data.
            Catch ex As Exception
        MessageBox.Show("Failed to connect to data source")
        Finally
        conn.Close()
        End Try

Me.Database1DataSet.資料表名稱.Add資料表名稱Row(TextBox1.Text, TextBox2.Text, TextBox3.Text)'資料表存入

Me.資料表名稱TableAdapter.Update(Me.Database1DataSet.資料表名稱)  '資料表更新

Dim url As String = "你要的網址"
Dim req As System.Net.HttpWebRequest = DirectCast(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
Dim rsp As System.Net.HttpWebResponse = DirectCast(req.GetResponse(), System.Net.HttpWebResponse)
        Try
                If rsp.StatusCode = System.Net.HttpStatusCode.OK Then
                        PictureBox1.Image = New Bitmap(rsp.GetResponseStream())
                End If
                        Finally
                rsp.Close()
        End Try